Пользователь вводит три числа. Найти сумму тех чисел, которые делятся на 5. Если таких чисел нет, то вывести error. (Подсказка. Например,
чтобы проверить делимость на 5 нужно воспользоваться функцией mod
(остаток от деления), т.е. если число mod 5 =0, то оно подходит). Pascal
KREZZOR
1
23.04.2021 12:40
17
Другие вопросы по теме Информатика
yuliaprok61yulia1206
18.12.2019 19:34
gregsorvenkov
18.12.2019 18:29
leijlalirva
18.12.2019 18:29
Quickpool
06.12.2020 14:35
darinachirkova2
06.12.2020 14:35
Chernaya4
06.12.2020 14:36
vadik46
06.12.2020 14:36
shaxrizat1
22.11.2021 09:32
an121759
25.12.2020 16:00
asti2000
25.12.2020 16:01
Популярные вопросы
- Сəуле кесінді бұрыш үш бұрыш бұлар?...
1 - Какую букву вставить ? на дворе было холодно, ветер т_ нул сильный,прямо...
2 - Сочинение-повествование по картине вратарь...
3 - Найдите суму 2-го 4-го 6-го 8-го простого чисда...
1 - Работа по вариантам. подбери к именам прилагательным и напиши...
2 - Уравнение решить (1,7-1,8y)(6y+3)=0...
1 - Проверочное слово к слову засе/илявших. !...
1 - Очём 5 глава королевство кривых зеркал,,...
3 - Написать сочинение на тему как я в первый раз починил цепь на...
1 - Как по первый второй итак до семи и написать по...
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.