Вряд выписаны в порядке возрастания числа, делящиеся на 9: 9, 18, 27, 36, …. под каждым числом этого ряда записана сумма его цифр. на каком месте в ряду впервые встретится число 63? ответ запишите в виде числа.
Var a,b,s,n:integer; begin a:=9; s:=9; n:=1; while s<>63 do begin a:=a+9; b:=a; s:=0; while b<>0 do begin s:=s+b mod 10; b:=b div 10; end; n:=n+1; end; writeln('a = ',a,' n = ',n); end.
Результат: a = 9999999 n = 1111111
Т.е. само число = 9999999, сумма цифр = 63, номер числа = 1111111
Большую папку-тетрадь со сьемными листами и к ней листы-разграничители разного цвета (очень удобно разграничить все предмет и 100 тетрадей не надо заводить) , пару-тройку общих тетрадей для семинарских заданий, ручки, маркеры (обязательно, пригодится перед экзаменами (сразу главное выделять)) , калькулятор маленький (опять же для семинаров) , пенал (или можно возпользоваться карманом сумки))) , блок листов для принтера (для рефератов, курсовых и пр.) , файлы пачку, степлер и антистеплер. Ну вроде все, остальное по мере необходимости (типо папок для курсовых) . Да и дешевле купить свой принтер, чем печатать за платно каждый реферат.
begin
a:=9;
s:=9;
n:=1;
while s<>63 do
begin
a:=a+9;
b:=a;
s:=0;
while b<>0 do
begin
s:=s+b mod 10;
b:=b div 10;
end;
n:=n+1;
end;
writeln('a = ',a,' n = ',n);
end.
Результат:
a = 9999999 n = 1111111
Т.е. само число = 9999999, сумма цифр = 63, номер числа = 1111111