Ім’я поштової скриньки має бути унікальним, тобто не повторюватися на обраному поштовому сервері 1)не погоджуюсь

2)погоджуюсь

193

440

Посмотреть ответы 1

Ответы на вопрос:

лчлвоу

Информатика

4,6(22 оценок)

ответ:
program p;
var p,a,i,n:integer;
begin
p:=0;
write('Введите количество сторон фигуры: ');
readln(n);
for i:=1 to n do
begin
write(i:2,' сторона = ');
readln(a);
p:=p+a
end;
writeln('Периметр фигуры: P = ', p)
end.

Объяснение:
вводим количество сторон в фигуре
затем в цикле вводим все стороны и подсчитываем периметр (накоплением)
выводим результат