У тебя немного неверная запись, но я поправил:
=(51+172)-2*(80/(6+11))
<h2>Ответ</h2>
213.588
Uses crt;
var
n,p:integer;
begin
writeln('Введите число: ');
readln(n);
p:=1;
while n>=10 do begin
p:=p*(n mod 100 div 10);
n:=n div 100;
end;
writeln('p = ',p);
end.
Пример:
Введите число:
236584
p = 96
Ответ:
Вот что есть
Объяснение:
Возможно именно эти задания у тебя будут)
program summa;
var
i, n:integer;
s, k:real;
begin
writeln('введите число n=');
read(n);
s:= 0;
k := 0;
for i := 1 to n do
begin
k:= k + sin(i);
s:= s + 1/k;
end;
writeln('Сумма S= ',s:0:2);
readln;
end.