На экран вывести все числа от 1 до Х кратные 8 с помощью while( паскаль)
Ответы на вопрос
Ответил AnonimusPro
0
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.
Ответил alisherrustamov
0
Не работает
Ответил AnonimusPro
0
все работает
Новые вопросы