Сделайте программу для измерения периметра любой фигуры. Сначала надо вести количество сторон а потом сложить стороны. 1OO Баллов
mikhailpopov070707:
НАДО НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ!!! И ДЛЯ ИЗМЕРЕНИЯ ЛЮБОЙ ФИГУРЫ,А НЕ ДЛЯ ОПРЕДЕЛЁННОЙ ФИГУРЫ
Ответы на вопрос
Ответил valgrisa
0
Ответ:
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.
Объяснение:
вводим количество сторон в фигуре
затем в цикле вводим все стороны и подсчитываем периметр (накоплением)
выводим результат
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.
Объяснение:
вводим количество сторон в фигуре
затем в цикле вводим все стороны и подсчитываем периметр (накоплением)
выводим результат
Новые вопросы