Question

Пользователь вводит три числа. Найти сумму тех чисел, которые
делятся на 5. Если таких чисел нет, то вывести error. (Подсказка. Например,
чтобы проверить делимость на 5 нужно воспользоваться функцией mod
(остаток от деления), т.е. если число mod 5 =0, то оно подходит). Pascal

Answer 1

var

n,i,s,sum:integer;

begin

readln(n,i,s);

sum:=0;

if n mod 5=0 then sum+=n;

if i mod 5=0 then sum+=i;

if s mod 5=0 then sum+=s;

if sum=0 then writeln('error')

else writeln(sum);

end.