Составить программу которая выводит последовательность чисел 1111 2222 3333 4444

Yourstudentbook Yourstudentbook    3   18.05.2019 04:50    2

Ответы
adelinkalinka15 adelinkalinka15  11.06.2020 10:26

Если тебе только до 4444, а не до 9999, то в строке for i:= 1 to 9 do, вместо 9 ставишь 4.))

 

var
mas: array[0..9] of integer;
i: byte;
b: integer;

begin
for i := 1 to 9 do
begin
mas[i] := i * 1111;
b := mas[i];
writeln(b);
end;
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика