Ответы на вопрос:
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.
Популярно: Информатика
-
Подготовить сообщение: Использование презентации в изучении предмета....
жека12рус24.10.2021 14:38 -
Напишите програму вычисления произведений : всех чисел от 1 до 100,...
shshdbAsan19.03.2022 20:41 -
Переведите число a13 и cd67f из 16-ричной в 10-тичную. только поясните....
галина26107.06.2020 06:39 -
Дана блок-схема. Какое значение будет иметь z на выходе, если x=11?...
приветки113.01.2023 13:32 -
Напишите программу на паскале к дано н-натуральных чисел не привышавшая...
mariaspassckay20.07.2022 14:22 -
Решите есть два кувшина ёмкостью 3 и 8 литров. как с только этих...
danlestern28.07.2020 22:08 -
Вприложении clion в messages: build выводит такую ерунду: warning...
Fixa15.06.2021 00:33 -
Введіть число - номер дня тижня .виведіть слово-назву цього дня...
nastyarybinskap0ai9q28.02.2023 16:21 -
Коля изобрёл машину времени у себя в гараже и решил на этом заработать....
riabinova1930.06.2020 11:50 -
Прочитай и напиши названия компьютерных программ....
ghosthog04.06.2021 18:57