ДАЮ 100 БАЛЛОВ!!!!
Найти сумму чисел, которые оканчиваются на 9. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Через паскаль
Novosib2020:
А зачем количество нужно?
var i,M,K,N:integer;
begin
Readln(N);
K:=0;
for i:=1 to N do
begin
readln(M);
if M mod 10 = 9
then
begin
K:=K + M;
end;
end;
write(K);
end.
begin
Readln(N);
K:=0;
for i:=1 to N do
begin
readln(M);
if M mod 10 = 9
then
begin
K:=K + M;
end;
end;
write(K);
end.
Ответы
Ответ дал:
1
Ответ:
var i,M,K,N:integer;
begin
Readln(N);
K:=0;
for i:=1 to N do
begin
readln(M);
if M mod 10 = 9
then
begin
K:=K + M;
end;
end;
write(K);
end.
Объяснение:
Спасибо
Ответ дал:
1
Ответ:
var i,k,a,s:integer;
begin
s:=0;
read(k);
for i:=1 to k do
begin
read(a);
if a mod 10 = 9 then s:=s+a
end;
write(s)
end.
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
8 лет назад
8 лет назад
9 лет назад