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

Пользователь вводит 10 чисел. определить, сколько из них являются одновременно четными и положительными. ( авс паскаль )

anosovmaks9 anosovmaks9    2   05.06.2019 04:00    20

Ответы
smosnin smosnin  05.07.2020 19:49
Var a,i,k: integer;
begin
k:=0;
for i = 1 to 10 do
begin
readln (a);
if (a>0) and ((a mod 2)=0) then
k:=k+1;
end;
writeln (k);
end.
кажется так
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
galaktionov964 galaktionov964  24.06.2019 07:50
Перевидите следующие предложения, обращая внимание на пассивные конструкции, характерные для языка 1. i was told they had settled the matter 2. were all points cleared up...
harushina harushina  14.05.2020 21:29
Переведите десятичное число 96 в восьмеричную систему счисления. В ответе запишите только число, основание системы счисления указывать не нужно. *​...
Unyrfnch Unyrfnch  14.05.2020 21:29
4. Фигураны құрудың дұрыс ретін анықтаңыз.​...
freeeeeee1 freeeeeee1  14.05.2020 21:29
Программа представляет собой набор взаимодействующих объектов, принадлежащих к различным классам при ... программировании. 1.событийно-ориентированном 2.объектно-ориентированном...
pollllyyy pollllyyy  14.05.2020 21:29
Вывести все нечетные числа в диапазоне от 0 до 100, используя цикл с заданным условием окончания работы. for(let i=1; i 100; i=i +2) { console.log(i) }...
cat12213113 cat12213113  14.05.2020 21:28
Какое событие повлияло на то, что языки программирования стали похожи на естественные разговорные? 1.разработка парадигмы структурного программирования 2.появление высокоуровневых...
ФрискТок ФрискТок  14.05.2020 21:15
Создание компьютерной презентации «Часы»,...
Диля222222222 Диля222222222  14.05.2020 21:23
Сколько продуктов в таблице содержат меньше 50 г жиров и меньше 30 г белков?...
karinanazarenkoAnna karinanazarenkoAnna  14.05.2020 21:21
Скласти блок-схему алгоритму розкладання квасолі у дві банки: в одну білу, в іншу -чорну...
Gafana Gafana  14.05.2020 21:21
найдите 10 ошибок. # include # include void main { float a,b,c printf( Wichislenie chastnogo/n ); printf ( Wwedite w odnoi stroke delimoe i delitel\n ); scan ( %f %f ,&a,&b);...

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