Регистрация
чинка2
24.06.2023 01:26
Информатика
Есть ответ 👍

Найти произведение p=2^3*4^3*6^3* выполнять до тех пор пока множитель не станет больше 500.

106
308
Посмотреть ответы 2

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

salamov1213
salamov1213
4,6(58 оценок)
Var a,m: integer; p: real; begin p: =1; a: =0; m: =0; while m< =500 do   begin   a: =a+2;   m: =a*a*a;   p: =p*m;   end; writeln(a,'^3 = ',m); writeln('p = ',p); end. результат: 8^3 = 512p = 5.662310400000000e+07
ттатт
ттатт
4,4(33 оценок)
Var x,y: integer; begin readln(x); if x< = 0 then y: =0 else if x< =1 then y: =x else y: = sqr(x); writeln(y); end.

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