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.

Answer 2

Конечно, вот пример кода на Pascal, который решает данную задачу:

pascalCopy code
program SumNumbersDivisibleByFive;

var
  num1, num2, num3, sum: integer;

begin
  writeln('Введите три числа: ');
  readln(num1, num2, num3);

  sum := 0;

  if num1 mod 5 = 0 then
    sum := sum + num1;

  if num2 mod 5 = 0 then
    sum := sum + num2;

  if num3 mod 5 = 0 then
    sum := sum + num3;

  if sum <> 0 then
    writeln('Сумма чисел, делящихся на 5: ', sum)
  else
    writeln('Ошибка. Нет чисел, делящихся на 5.');
end.

Пользователь вводит три числа, и программа проверяет каждое число на делимость на 5 с использованием оператора mod. Если число делится на 5, оно добавляется к сумме. После этого программа выводит сумму или сообщение об ошибке, если нет чисел, делящихся на 5.