С клавиатуры вводятся числа до тех пор пока не введено число…

41

С клавиатуры вводятся числа до тех пор пока не введено число -5. Найти количество четных чисел изведенных

категория: информатика

ответить

в избранное

40

lpxin

04 марта 2023

var i,s: integer; beginwhile i<>-5 do beginreadln (i); if i mod 2=0 then s: =s+1; end; writeln (s); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

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

Смотрите также:

Вычислить сколько байтов занимает на СД 1 минута стереозаписи, если частота дискритизации 44000, разрядность звук

Выберите операционные системы, которые имеют 64-битные версии

Вычислите значения функция (в паскале) z=x (вкубе) -2,5 ху +1,78 х (квадрат) -12,5 у +1

Действие выполняемое и с моделью, и с объектом — оригиналом: словесное описаниекуртки

Пользователь работал с каталогом D: \ПPOГPАММЫ\ИГРЫ\КВЕСТЫ

Используя программу вычитания, проверить: что получится, если уменьшаемое равно вычитаемому что получится…

Дана величина а выражающая объем информации в байтах, перевести а в биты, килобайты. (Паскаль)

Составьте программу, которая заполняет массив [1…

Файл размером 4 мбайт передается через передается через некоторое соединение за 100 секунд

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

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

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...