Составить программу которая выводит последовательность чисел 1111 2222 3333 4444
Составить программу которая выводит последовательность чисел 1111 2222 3333 4444
Гость
Ответ(ы) на вопрос:
ГостьЕсли тебе только до 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.
Не нашли ответ?
Похожие вопросы