даны естественные числа от 20 до 50. напечатать те из их,

Даны естественные числа от 20 до 50. напечатать те из их, которые делятся на 3, но не делятся на 5.
Программка на Pascal

Задать свой вопрос
Алина Погосбекян
21,24,27,33,36,39,42,48.
Исандренко Санек
Читай последнее сообщение...
1 ответ

 uses crt;
  var i:integer;
begin 
   For i:=20 to 50 do 
     If (i mod 3=0) and (i mod 5 lt;gt; 0) then writeln(i); 
end.
Мирослава Запорожец
спасибо. но зачем uses?
Галауз Серж
В силу повадки добавил. Чтобы не давить 2 раза F9 в abc.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт