Вывести на экран двузначные числа последняя цифра которых кратна 3 циклом while
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
