дано n произвольный чисел,найти их сумму (паскаль ABC). Решить пожалуйста в 3-х ...

August 2022 1 10 Report

дано n произвольный чисел,найти их сумму (паскаль ABC).
Решить пожалуйста в 3-х циклах,(for;repeat and until;while)

Answers & Comments

Verified answer

1)
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
for i:=1 to n do
begin
read(a);
s:=s+a;
end;
writeln('s = ',s);
end.

2)var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
i:=0;
repeat
i:=i+1;
read(a);
s:=s+a;
until i=n;
writeln('s = ',s);
end.

3)
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
i:=0;
while i<n do
begin
i:=i+1;
read(a);
s:=s+a;
end;
writeln('s = ',s);
end.

Пример:
n = 5
Введите 5 чисел:
8 2 9 6 4
s = 29

1 votes Thanks 0

Answers & Comments

Verified answer

nado dopolnit programmuchtoby on iskal reshenie v x stolbce program a1 var c

uses crt var nss1s2kinteger begin writelnvvedite chislo readlnn

sostavit programmu vycheslenij stepeni chisla a s naturalnym pokazatelem n

sostavit programmu vycheslenij stepeni chisla a s naturalnym pokazatelem n s ob

reshite uravnenie 2 3 x3 x 252c2d71bf486f7ff86b907886d7b003a 13895

reshite uravnenie 2 3 x3 x 2 primechanieuravnenie imeet vida asdelaj

pomogitene ponimayu himicheskie reakciikak ih sostavlyaturavnivat obyasnite p

3 zadajte etu funkciyu tablicejbe7583e1e61baaf28801a435e0e07cab 29347

3 zadajte etu funkciyu tablicejfe042ae3a6a58826803ca23e51120c34 66788

dan linejnyj massiv v razmere 5 vyvesti elementy bolshe 10

рекомендуемые вопросы

Helpful Links

Helpful Social