Вопрос по информатике:
ПАСКАЛЬ
Написать программу: на вход программы подаются числа соответствующие длинам сторон многоугольника. Ввод заканчивается при введении отрицательного числа или 0. Необходимо посчитать периметр этого многоугольника и вывести на экран сообщение "Периметр n-угольника равен ...", где вместо n должно быть указано какой это многоугольник (3-угольник, 4-угольник и тд).
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.12.2015 22:05
- Информатика
- remove_red_eye 2015
- thumb_up 18
Ответы и объяснения 2
//Версия 3.3, сборка 1634
begin
var a:=ReadSeqIntegerWhile(x->x>0).ToArray;
write('Периметр ', a.Count,'-угольник равен ',a.Sum);
end.
- 12.12.2015 03:00
- thumb_up 49
// Внимание! Если программа не работает, обновите версию!
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
- 13.12.2015 02:19
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.