Напишите программу, которая в последовательности целых чисел определяет количество

Напишите программку, которая в последовательности целых чисел определяет количество двухзначных чисел кратных 5

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

Ответ:

var a,k: integer;

begin

a:=1;

k:=0;

while (alt;gt;0) do  

begin

readln(a);

if ((alt;100) and (agt;9) and (a mod 5 =0)) then k:=k+1;

end;

writeln(k);

end.

Изъяснение:

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


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

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

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

Войти на сайт