|
zadach283.PAS |
|
{* Задача 283 *}Unit ZADACH283; InterfaceImplementationBegin writeln( '
Продолжить закономерность:
9*9+7=88
98*9+6=888
987*9+5=8888
'); End. Program zadach283;
Uses zadach283.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
i : longint;
k : longint;
n : longint;
Begin
clrscr; {* Очистка экрана *}
k := 9;
For i := 9 Downto 2 Do
Begin
n := 0;
n := k * 9 + i - 2;
writeln(k, '*9+', i - 2, '=', n);
k := k * 10 + i - 1;
End;
readln; {* Приостановка программы. Ожидание Enter *}
End.
|