Регистрация
pankuznetsov
12.05.2020 08:22
Информатика
Есть ответ 👍

Напишите программу в паскале, где дано натуральное число n и вычислить произведение первых n-сомножителей: а) 1*3/2*5/ б) 1*1/3*1/

185
474
Посмотреть ответы 2

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

Нурик2266
Нурик2266
4,7(8 оценок)
Var n,i,j: integer; p: real; begin i: =1; j: =1; p: =1; writeln('введите число n'); readln(n); write('а: 1'); while i< > n do begin j: =j+2; i: =i+1; p: =p*(j/i); write('*',j,'/',i); end; write('=',p); writeln(); write('б: 1'); i: =1; j: =1; p: =1; while i< > n do begin j: =j+2; i: =i+1; p: =p/i; write('*1/',j); end; write('=',p); end.
MrsVaderr
MrsVaderr
4,5(55 оценок)
Program nevazhno; var a, b, p, s: integer; begin readln(a); readln(b); p: =(a+b)*2; s: =a*b; writeln('периметр=',p,' площадь=',s); end.

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