
Агриппа
5 год назад
На экран вывести все числа от 1 до Х кратные 8 с помощью while( паскаль)
ОТВЕТЫ

Merja Kirsi-Kaisa
Oct 24, 2020
Program n1;
var x,i: integer;
begin
i:=8;
readln(x);
while i<=x do
begin
write(i,' ');
i:=i+8;
end;
end.
var x,i: integer;
begin
i:=8;
readln(x);
while i<=x do
begin
write(i,' ');
i:=i+8;
end;
end.
479
Смежные вопросы: