Дам много баллов!!! На паскале пишите Даны 20 целых чисел. Посреди

Дам много баллов!!!
На паскале пишите
Даны 20 целых чисел. Посреди них отыскать количество четных, количество кратных 5 и количество двузначных

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

Даны 20 целых чисел. Среди их отыскать количество четных, количество кратных 5 и количество двузначных

Пустовит Аделина
PascalABC.NET

program chisla;

var a, even, krat, two,schet:integer;

begin

writeln('Введите 20 Целых чисел');

even:=0;

krat:=0;

two:=0;

schet:=0;

while schetlt;20 do begin

readln(a);

schet:=schet+1;

if (a mod 2 = 0) then

even:=even+1;

if (a mod 5 = 0) then

krat:=krat+1;

if (agt;9) and (alt;100) then

two:=two+1;

end;

writeln('Всего ',even,' четных, ',krat,' кратных пяти и ', two,' двузначных.');

end.


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


Последние вопросы

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

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

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

Войти на сайт