Числа от 10 до 100 сколько чисел делятся на 2, но

Числа от 10 до 100 сколько чисел делятся на 2, но не делятся на 5?
напишите решение на языке PASCAL

Задать свой вопрос
1 ответ

var i,c:Integer;

begin

   c := 0;

   for i:=10 to 100 do

       if (i mod 2 = 0) and not (i mod 5 = 0) then

           c := c + 1;

   writeln(c);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт