Ответ:
var a,b,s,c:integer;
begin
s:=0;
writeln('Введите кол-во сторон');
readln(a);
for b:=1 to a do
readln(c);
s:=s+c;
end;
writeln('периметр равен ',s);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var a,b,s,c:integer;
begin
s:=0;
writeln('Введите кол-во сторон');
readln(a);
for b:=1 to a do
begin
readln(c);
s:=s+c;
end;
writeln('периметр равен ',s);
end.