|
zadach284.PAS |
|
{* Задача 284 *}Unit ZADACH284; InterfaceImplementationBegin writeln( '
Продолжить последовательность:
1*9+2=11
12*9+3=111
123*9+4=1111
'); End. Program zadach284;
Uses zadach284.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
i : integer;
k : longint;
m : longint;
n : integer;
Begin
clrscr; {* Стираем всё с экрана *}
k := 1;
For i := 1 To 9 Do {* Увеличиваем i от 1 до 9 с шагом 1 *}
Begin
m := (k * 9) + (i + 1);
writeln (k, '*9+', i + 1, '=', m);
k := (k * 10) + (i + 1);
End;
readln; {* Ждем нажатия Enter *}
End.
|