Предмет: Информатика,
автор: tory48
в интервале от 10 до 20 найти все числа,которые делятся на 3 без остатка.Паскаль.
Ответы
Автор ответа:
0
program abc;
var x,i:integer;
begin;
for x:=10 to 20 do
if x mod 3 = 0 then writeln (x);
end.
var x,i:integer;
begin;
for x:=10 to 20 do
if x mod 3 = 0 then writeln (x);
end.
Интересные вопросы
Предмет: География,
автор: stopham68
Предмет: Английский язык,
автор: hevineh234
Предмет: Українська мова,
автор: rozkoluba72
Предмет: Информатика,
автор: ddden