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

Вводится последовательность целых чисел, конец ввода – число, в котором две последние цифры равны. найти количество введенных чисел, кратных 4 pascal abc

пятка1980 пятка1980    3   29.08.2019 15:20    0

Ответы
NoirShade NoirShade  06.10.2020 03:07
Var A,k:integer;
Begin
k:=0;
Repeat
Read(A);
if A mod 4 = 0 then k:=k+1;
Until A mod 10 = (A div 10) mod 10;
WriteLn('Искомое количество: ',k);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
pastoling pastoling  22.01.2022 21:13
Исполнитель Робот находится на бесконечном поле из клеток без стен. Он может выполнять команды: влево, вправо, вверх, вниз, переходя при этом на соседнюю клетку в указанном направлении....
ramn ramn  22.01.2022 21:11
Найти наибольший общий делитель двух натуральных чисел M и N (алгоритм Евклида) НАПИШИТЕ ПРОГРАММУ ПАСКАЛЯ....
leralera31051 leralera31051  22.01.2022 21:11
4. в бутылке, стакане, кувшине и банке находятся молоко, лимонад, квас и вода. Известно, что вода и молоко не в бу тылке, сосуд с лимонадом стоит между кувшином и сосудом с квасом,...
yanaberseneva yanaberseneva  22.01.2022 21:07
решить В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число...
лада143 лада143  22.01.2022 21:01
Дана строка, состоящая из слов, разделенных пробелами. Написать программу, находящую количество слов. Решение должно быть в одну строку....
Alexandra0903 Alexandra0903  12.02.2021 12:07
Умоляю с информатикой, Решите задачу двумя используя цикл ПОКА и цикл ДО Необходимо вывести на экран 5 раз сообщение “Здравствуйте! Я робот”....
1Ростиславка 1Ростиславка  12.02.2021 12:07
1.     Напишите программу в Пайтон в виде линейного алгоритма  используя разные функции записи программы.  ЛЮДИ ОЧЕНЬ ЛУЧШЕ РИСУНОК В Пайтон ПРИКРЕПИТЕ прикрепите алгоритм л нейный...
techno290696 techno290696  17.01.2020 15:30
Артём он буратино пьеро мальвина и арлекин сбежали от каробаса барабана у них с собой было 3 монеты и 2 азбуки. почему у каждого был только один придёт. какой из придметов был у...
катя5089 катя5089  17.01.2020 13:36
Спрашиваю тех, кто акибог в с++ недавно услышал про секретный тип данных, который вмещает примерно 10^36 подскажите, чо это за тип в инете облазил ничего не нашёл (там полная лажа)...
Sheilin111111 Sheilin111111  19.01.2021 20:00
Сообщение на тему алгоритм конструкции...

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