Власов
4 год назад
ПРОГРАММА В ПАСКАЛЬ АВС 6 ЗАДАНИЕ
ОТВЕТЫ
Ирена
Oct 24, 2020
Если между z иa умножение:
var z:array[1..13] of integer;
s,i:integer;
begin
s:=0;
for i:=1 to 13 do read(z[i]);
for i:=1 to 13 do
if i=5 then s:=s+z[i]*2
else if i=7 then s:=s+z[i]*4
else if i=10 then s:=s+z[i]*i
else s:=s+z[i]*z[i];
writeln(s);
end.
var z:array[1..13] of integer;
s,i:integer;
begin
s:=0;
for i:=1 to 13 do read(z[i]);
for i:=1 to 13 do
if i=5 then s:=s+z[i]*2
else if i=7 then s:=s+z[i]*4
else if i=10 then s:=s+z[i]*i
else s:=s+z[i]*z[i];
writeln(s);
end.
21
Смежные вопросы: