Паскаль написать программу: на вход программы числа соответствующие длинам сторон многоугольника. ввод заканчивается при введении отрицательного числа или 0. необходимо посчитать периметр этого многоугольника и вывести на экран сообщение "периметр n-угольника равен ", где вместо n должно быть указано какой это многоугольник (3-угольник, 4-угольник и тд).

167

367

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

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

vanyushagay96

Информатика

4,8(70 оценок)

//pascalabc.net //версия 3.3, сборка 1634 begin var a: =readseqintegerwhile(x-> x> 0).toarray; write('периметр ', a.count,'-угольник равен ',a.sum); end.

Aron91

Информатика

4,5(38 оценок)

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin var (p,n): =(0.0,0); readseqrealwhile(t-> t> 0).foreach(t-> begin p+=t; n+=1 end); writeln('периметр ',n,'-угольника равен ',p) end. пример 4.7 2.9 6.2 1.8 5 0 периметр 5-угольника равен 20.6