Question

Напишите программу Паскаль срочно пожалуйста даю 40 балов
Найти сумму нечётных чисел кратных 3 которые заканчиваются цифрой 5.

Answer 1

var
  i,s,n,m:integer;
begin
  Write('Количество чисел равно ');
  Readln(n);
  s:=0;
  Writeln('Введите все числа');
  for i:=1 to n do
  begin
    Read(m);
    if (abs(m mod 10)=5) and (m mod 3=0) then s:=s+m
  end;
  Writeln('s=',s)
end.