uses crt;
var t,x:real; k,m:integer;
begin
writeln('x,m'); readln(x,m);
k:=1;
t:=1;
while (k<=m) do
begin
t:=t*{...}
k:=k+1;
end;
writeln('t=',t:10:4);
readln;
end.
так вроде
Полная версия: Циклическая программа на Паскаль ( Сообщение # 40696 by tonibis ) > Информатика / Программирование
program;
uses crt;
var t,x:real; k,m:integer;
begin
writeln('x,m'); readln(x,m);
k:=1;
t:=1;
while (k<=m) do
begin
t:=t*{...}
k:=k+1;
end;
writeln('t=',t:10:4);
readln;
end.
так вроде
uses crt;
var t,x:real; k,m:integer;
begin
writeln('x,m'); readln(x,m);
k:=1;
t:=1;
while (k<=m) do
begin
t:=t*{...}
k:=k+1;
end;
writeln('t=',t:10:4);
readln;
end.
так вроде
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.