Есть три любых числа, можете взять любые. Напишите программу для Паскаля, которая выведет количество чисел, кратных 5. (Упоминается, что можно ввести ещё одну переменную для решения;) Спасибо!
Мы можем взять любые... но откуда? Ввод с клавиатуры?
По заданию не даётся значения, нужно выбрать их самому.
ну ответ дан с учетом того, что 3 числа вводятся с клавиатуры
program n_1;
var a, b, c: int64;
begin
read(a, b, c);
if a mod 5 = 0 then a:=1 else a:=0;
if b mod 5 = 0 then b:=1 else b:=0;
if c mod 5 = 0 then c:=1 else c:=0;
writeln(a+b+c);
end.
Дополнительных переменных не использовано.