Предмет: Информатика,
автор: gauffff
Написать программу :
в последовательности натуральных чисел найти сумму и кол-во дву значных чисел начинающихся на 2
Program - Pascal ABC
Ответы
Автор ответа:
0
Program Rick_and_Morty;
var x,y,i:integer;
var a:array [1..9999] of integer;
Begin
y:=0;
write('введите количество чисел (макс 9999): ');
readln (x);
write('Масив: ');
for i:=1 to x do
begin
a[i]:=random(89)+10;
write(a[i],', ');
end;
writeln('');
for i:=1 to x do
begin
if (a[i] div 10 =2) then
begin
y:=a[i]+y;
writeln('Подходящее число:',a[i],' сумма =',y );
end;
end;
writeln('конец');
end.
var x,y,i:integer;
var a:array [1..9999] of integer;
Begin
y:=0;
write('введите количество чисел (макс 9999): ');
readln (x);
write('Масив: ');
for i:=1 to x do
begin
a[i]:=random(89)+10;
write(a[i],', ');
end;
writeln('');
for i:=1 to x do
begin
if (a[i] div 10 =2) then
begin
y:=a[i]+y;
writeln('Подходящее число:',a[i],' сумма =',y );
end;
end;
writeln('конец');
end.
Приложения:
Автор ответа:
0
var
i,n,cnt,tmp,sum, last:integer;
a:array [1..9999] of integer;
Begin
Writeln('Введите кол-во элементов');
Readln(n);
Writeln('Введите последовательность -> ');
for i:= 1 to n do
read(a[i]);
writeln();
for i:=1 to n do
begin
tmp:= a[i];
while tmp > 0 do
begin
last:=tmp mod 10;
tmp:= tmp div 10;
end;
if last = 2 then
begin
cnt:= cnt + 1;
sum:= sum + a[i];
end;
end;
Writeln('Всего элементов: ', cnt);
Writeln('Сумма равна ', sum);
end.
Приложения:
Похожие вопросы
Предмет: Алгебра,
автор: cambobalm000
Предмет: Химия,
автор: vikapravik54
Предмет: Химия,
автор: Salavat143
Предмет: Алгебра,
автор: nazka3
Предмет: Математика,
автор: Аноним