Предмет: Информатика,
автор: AppleThe
даны натуральные числа от 20 до 50. напечатать те из них, которые делятся на 3, но не делятся на 5.
Программа на Pascal
vipsvetlanaali:
21,24,27,33,36,39,42,48.
Читай последнее сообщение...
Ответы
Автор ответа:
37
uses crt;
var i:integer;
begin
For i:=20 to 50 do
If (i mod 3=0) and (i mod 5 <> 0) then writeln(i);
end.
спасибо. но зачем uses?
В силу привычки добавил. Дабы не нажимать 2 раза F9 в abc.
Интересные вопросы
Предмет: Русский язык,
автор: АСКАР10035
Предмет: Русский язык,
автор: рпаропорпор
Предмет: Русский язык,
автор: влад984
Предмет: Математика,
автор: sanyvocmin777
Предмет: Химия,
автор: lindprokofieva