Напишите программу Паскаль срочно пожалуйста даю 40 балов
Найти сумму нечётных чисел кратных 3 которые заканчиваются цифрой 5.
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Всё верно)
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад