1. Информатика
  2. Вводятся целые числа до

Вводятся целые числа до тех пор пока не будет введен 0. определить сколько среди них четных и нечетных чисел. напишите программу используя цикл-пока(с предусловием): while do (ниже прикреплено фото с этой же программой но на основе цикла-до(repeat))

Polinakovalevallll Polinakovalevallll    2   10.04.2019 13:32    21

Ответы
tepop13 tepop13  29.05.2020 04:47

Var a, k1, k2:integer;

Begin

K1:=0;k2:=0;a:=1;

While a<>0 do begin

Write('a=') ;read(a) ;

If a mod 2 =0 then k1:=k1+1 Else k2:=k2+1;

End;

Write ('четных ', k1-1) ;

Write('нечетных ', k2) ;

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vladimir00041 vladimir00041  04.11.2020 15:15
Написать программу в паскале, которая формирует матрицу nXn в следующем виде: У меня есть программа, которая формирует матрицу в виде: 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2...
ОлесяБычкова ОлесяБычкова  04.11.2020 15:24
зделать номер 2 Просто понимаете ты рисуешь а потом вспоминаешь что у тебя есть ещё информатика ​ >...
амир299 амир299  08.04.2020 10:40
Кассир по продажам билетов в кинотеатр...
goldshell goldshell  08.04.2020 10:40
На языке програмирования ПИТОН!! По заданным координатам точек А и В, вычислите длину отрезка АВ. Подсказка: Расстояние d между точками А (хa, уa) и В (хb, уb) выражается...
artem876 artem876  25.11.2020 12:40
Определи формулу с использованием функции ЕСЛИ в ячейке В2. =ЕСЛИ(А2 0; 1; 0)=ЕСЛИ(А2 0; Да ; Нет )=ЕСЛИ(А2 0; Нет ; Да )=ЕСЛИ(А2 0; 0; 1)​...
adiletmurataliev adiletmurataliev  25.11.2020 12:40
Составить составное высказывание, содержащее операции логического умножения, сложения и отрицания. Определить его истинность.​...
Мельник20331 Мельник20331  21.12.2020 16:17
Здравствуйте нужно решение для сына,...
PRO100RAMZAN PRO100RAMZAN  21.12.2020 16:17
У исполнителя Квадратор две команды, которым присвоены номера: 1. возведи в квадрат
 2. вычти 2 Исполнитель работает только с натуральными числами. Составьте алгоритм получения...
Gok3004 Gok3004  21.12.2020 16:18
С электронных таблиц EXCEL решите задачу. На предприятии работники имеют следующие оклады: начальник отдела – 1000 р., инженер 1кат. – 860 р., инженер – 687 р., техник...
deepytat deepytat  04.03.2021 00:27
7°. Складіть проект, у якому виконавець намалює відрізок завдовж- ки 50 кроків синім кольором, якщо натиснуто клавішу стрілкавправо, або намалює відрізок завдовжки 100...

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