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


YAKOT1
19.07.2022 22:12

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

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
KIrito5016
KIrito5016
11.08.2022 14:46
Чему равно 808 в записи, сделанной в системе счисления с основанием p = 16? пробовал 808 - не правильно пробовал 328 - не правильно я не понимаю(...
ПольгаБос
ПольгаБос
22.04.2022 06:54
Program c; var a,b,c: iteger; beginwriteln ( введите длину прямоугольника ); read (a) writeln ( введите ширину прямоугольника ); read (b) begin c: =a*b writeln( площадь прямоугольника=...
kaznacheev27p070e2
kaznacheev27p070e2
03.11.2022 13:34
A=10 b=5 if(a 1) . . . (a a=a-7 else: a=a+7 print(a)...
gomonovdima71
gomonovdima71
25.10.2022 20:13
CРОЧНО Задан IP адрес компьютера и маска подсети. Определите номер компьютера в этой сети.10.59.35.44 255.255.255.248...
msembinov
msembinov
30.06.2020 17:16
Опишите основные объекты базы данных. без каких объектов не может существовать база данных. дайте полный развернутый ответ....
PollusikRO
PollusikRO
19.02.2020 12:39
Информатика pascalabs net k -10 до 0 интервал от 10 до 50​...
Belay28
Belay28
12.08.2021 00:53
Разрешение экрана монитора 800×600 означает, что изображение на его экране будет состоять из строк....
anulka2
anulka2
24.01.2021 00:38
25 ! , ! в чем ошибка? const eps = 0.01; a = -100; b = 100; n=10; var kol: integer; ch_tek: array[1..n] of real; i : byte; fl: boolean; begin fl: =false; for i: =1 to n do begin...
АхМеД2233
АхМеД2233
12.04.2022 06:26
Даны две строковые величины. написать программу подсчета букв в в меньшей по длине величина. в случае равенства длин напечатать значение количества букв в в каждой строковой...
GoldenKookieBunny
GoldenKookieBunny
25.09.2022 17:59
Кто -святой. составить программу, которая заполняет 11 элементов одномерного массива случайным образом, вычисляет их сумму, определяет min элемент в массиве...
Ответ:
20071210
10.07.2020 23:17
Var x,y:integer;
begin
  repeat
    readln(x);
    y := y + 1 - (x mod 2);
  until x = 0;
  writeln(y);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота