Напишите программу, которая в последовательности пяти натуральных чисел определяет количество чисел, кратных 3. Помогите пожалуйста написать программу на Pascal
Ответы
Ответ дал:
2
Ответ:
program exerc;
var a, b, c, d, e, count:integer;
begin
count := 0;
Readln(a); if a mod 3 = 0 then count += 1;
Readln(b); if b mod 3 = 0 then count += 1;
Readln(c); if c mod 3 = 0 then count += 1;
Readln(d); if d mod 3 = 0 then count += 1;
Readln(e); if e mod 3 = 0 then count += 1;
Writeln('Чисел кратных 3 всего: ', count);
end.
Объяснение:
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад