Упр.2.213 ГДЗ Сборник упражнений Босова 7-9 класс (Информатика)
Решение #1
Рассмотрим вариант решения задания из учебника Босова, Аквилянов 8 класс, Просвещение:
2.213. Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 3. Программа получает на вход целые числа. Количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чётных чисел, кратных 3.
var
k, x: integer;
begin
k := 0;
repeat
read(x);
if x < > 0 then
if (x mod 2=0) and (x mod 3=0) then k: = k+1
until x = 0;
writeln(k)
end.
Популярные решебники 8 класс Все решебники
*К сожалению, временные проблемы с публикацией комментариев с мобильных устройств.