Войти Регистрация Спроси ai-bota

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

Ответ:

Примари

23.07.2020 07:23

Pascal:
program z1;
var i, k, n, ch:integer;
begin
n:=0;
ch:=0;
for i:=1 to 15 do
begin
writeln('Input number:');
readln(k);
if(k mod 2=0) then
ch:=ch+1
else
n:=n+1;
end;
writeln('Нечетных было ', n);
writeln('Четных было ', ch);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

xaetrmsmirnov

30.05.2021 20:46

Составить программу, которая вычисляет сумму и среднее арифметическое положительных чисел....

ruslana0506

03.02.2022 10:33

Что будет выведено на экран монитора в результате выполнения программы?a=12b=5c=a-bif a c: print(a)if b c: print(b)а)7б)Ошибка!в)5г)12...

Mako9375

07.09.2021 03:30

Паскаль. Ввести 2 числа по возрастанию (1е 2го)/. Сообщить, на сколько и во сколько раз 2е больше 1го....

наиб3

16.03.2020 20:33

A=7 , b=4 значение k=2a2+(a+b) найти значение...

leha2018

14.04.2022 14:04

К чему приводит чрезмерное использование компьютера ...

Sndrey68085

09.11.2021 06:55

Delphi две простые программы - 1. Даны длины сторон прямоугольного параллелепипеда. Найти его объем и площадь боковой поверхности. 2. Написать программу, которая определяет,...

lunnui

25.09.2020 23:22

1. Определите, что печатает программа. k = 100for i in range(6): k - = 10print(k)...

taykinamatilda

20.03.2020 12:23

Даны два числа если они равны то найти их сумму а иначе найти их разность...

hohlov228

19.01.2021 02:42

4. Приведите пример минимально возможной конструкции условного выражения в Python. ...

superplay06

14.03.2021 01:34

Сколько костюмов может иметь спрайт...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку