Регистрация
прост1232
07.11.2021 01:01
Информатика
Есть ответ 👍

Напишите программу для получения периметра пятиугольника

191
389
Посмотреть ответы 2

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

valeria15queen
valeria15queen
4,4(9 оценок)
По длинам сторон пятиугольника на паскаль abc: program p5; var a1,a2,a3,a4,a5: real; begin   writeln('введите длины сторон');   readln(a1,a2,a3,a4,a5); writeln('периметр пятиугольника = ', a1+a2+a3+a4+a5); end.
cherry1527
cherry1527
4,4(63 оценок)

program dimavdovuskin497;

type t1 = integer;

    t2 = double;

var n, i: t1;

   x, summa, pr: t2;

begin

writeln('Напишите программу, вычисляющую: а) сумму n первых натуральных четных чисел; б) произведение n первых натуральных нечетных чисел.');

writeln;

write('Введите общее количество чисел: ');

readln(n);

writeln;

summa := 0;

pr := 1;

for i := 1 to n do

begin

 write('Введите х: ');

 readln(x);

 writeln;

 if (frac(x) = 0) then

 begin

  if (frac(x/2) = 0) then summa := summa + x

   else pr := pr * x;

 end;

end;

writeln('Сумма n первых натуральных четных чисел равна ', summa : 5 : 0);

writeln;

writeln('Произведение n первых натуральных нечетных чисел равно', pr : 5 : 0);

readln;

end.

Популярно: Информатика