Mathis
6 год назад
Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается число 0(0-признак окончания ввода, не входит в последовательность СРОЧНО, ПОЖАЛУЙСТА, НА ПАСКАЛЕ. ОЧЕНЬ СРОЧНО
ОТВЕТЫ
Kyuikik
Jul 9, 2019
Program mas;
var i,k,sum:integer; a:array [1..1000] of integer;
begin
for i:=1 to 1000 do
begin;
readln(a[i]);
if a[i]=0 then break;
end;
k:=0;
sum:=0;
for i:=1 to 1000 do
begin;
sum:=sum+a[i];
if (a[i] mod 2=0) and (a[i] mod 5=0) and (a[i]lt;gt;0) then
k:=k+1;
end;
writeln(summa= ,sum);
writeln(kolichestvo=,k);
readln;
end.
var i,k,sum:integer; a:array [1..1000] of integer;
begin
for i:=1 to 1000 do
begin;
readln(a[i]);
if a[i]=0 then break;
end;
k:=0;
sum:=0;
for i:=1 to 1000 do
begin;
sum:=sum+a[i];
if (a[i] mod 2=0) and (a[i] mod 5=0) and (a[i]lt;gt;0) then
k:=k+1;
end;
writeln(summa= ,sum);
writeln(kolichestvo=,k);
readln;
end.
183
Смежные вопросы:
