Предмет: Информатика,
автор: Sendman
Вывести на экран двузначные числа последняя цифра которых кратна 3 циклом while
Ответы
Автор ответа:
0
var
c:integer;
begin
c := 10;
while c < 100 do
begin
if ((c mod 10) mod 3 = 0) and (c mod 10 <>0) then
write(c, ' ');
c := c + 1;
end;
writeln;
end.
Похожие вопросы
Предмет: География,
автор: asyrvi8yy
Предмет: Алгебра,
автор: kunidilova122706
Предмет: Физика,
автор: Nickolay322
Предмет: Математика,
автор: San1
Предмет: Алгебра,
автор: киримгшмтргврмг