Регистрация
Aliska17
04.06.2020 17:47
Информатика
Есть ответ 👍

1)найдите сумму s=0.3+0.6+0.9++3 2) найдите произведение р=1/20*1/18*1/16**1/2 на языке паскаль с команд repeat и while. !

149
346
Посмотреть ответы 2

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

omanivchuk
omanivchuk
4,7(12 оценок)
// №1 //цикл repeat var i,s: real; begin   s: =0;   i: =0.3;   repeat         s: =s+i;         i: =i+0.3;   until i > = 3;   writeln('сумма ',s); end. // №2 //цикл while var p: real;   i: integer; begin   p: =1;   i: =20;   while i> 2 do begin         p: =p*(1/i);         i: =i-1;   end;   writeln('произведение членов ряда ',p); end.
hotengel
hotengel
4,4(34 оценок)

Это программа Калькулятор

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