1. Информатика
  2. Пользователь вводит 20 чисел.

Пользователь вводит 20 чисел. напишите программу,которая будет считать количество четных чисел. надо сделать в pascalabc . 8 класс.

dilyabasmanova dilyabasmanova    1   23.08.2019 01:20    0

Ответы
Юлиан228 Юлиан228  31.08.2020 20:00
Program n1;
var a,k,i: integer;
begin
for i:=1 to 20 do
begin
readln(a);
if a mod 2=0 then k:=k+1;
end;
writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
12345678006432 12345678006432  19.07.2022 12:54
Готовя файл для вступительного экзамена, аспирант Сидоров сделал следующее: - Заполнил случайными целыми числами массив из N элементов. - Создал второй массив, из 2N элементов,...
100817ЛИСИЧКА240817 100817ЛИСИЧКА240817  19.07.2022 11:50
Переместить элемент в списке Ваша программа должна перенести последний элемент списка из конца в начало, т.е. последний элемент списка должен стать первым. При этом последовательность...
Dimo558 Dimo558  19.07.2022 11:44
Два автомобиля движутся по кольцевой дороге длины L в противоположных направлениях. Они начинают движение из одной точки и едут с постоянными скоростями v1 и v2 соответственно....
Дмитртй11 Дмитртй11  19.07.2022 11:34
Кеша вырезал из бумаги треугольник ABC с наибольшей стороной AB и перегнул его по прямой так, что вершина С попала на сторону AB и образовался четырехугольник. Укажите...
chingiz2008 chingiz2008  24.04.2021 21:56
Оберіть операції редагування тексту (символів) видалення символівколір символіввставляння символівнакреслення символів (курсив, напівжирним, підкресл​...
iik2001vrnp087am iik2001vrnp087am  24.04.2021 22:09
1) Запишите десятичный эквивалент числа, представленного в дополнительном коде 11110011 (в ответе пробелы не используйте) 2)Запишите десятичный эквивалент числа, представленного...
irina20042005 irina20042005  24.04.2021 22:09
Какова ширина (в пикселях) прямоугольного 16-цветного неупакованного растрового изображения, занимающего на диске 256 Кбайт, если его высота вдвое больше ширины?...
merit6052 merit6052  24.04.2021 22:10
Import re(где ошибка ) with open( input.txt , r ) as inp: words = re.sub(r (?i)[^a-z] , , inp.read()).split() a = input( Введите букву: ).lower() with open( output.txt...
лппериоаоаопоопо лппериоаоаопоопо  24.04.2021 22:11
Зробіть висновок: як складати та виконувати циклічні алгоритми з розгалуженням усередині циклу для розв язування задач....
Ayvili Ayvili  24.04.2021 22:15
1)Производилась двухканальная (стерео) звукозапись с частотой дискретизации 48 кГц и 16-битным разрешением. В результате был получен файл размером 5625 Мбайт, сжатие данных...

Популярные вопросы