Пользователь вводит три числа. Найти сумму тех чисел, - вопрос №18163158 от maloyzolotov 24.01.2023 02:37

Question

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

maloyzolotov · Answer

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....