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