Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
35
Добавлен:
29.09.2018
Размер:
671 б
Скачать
program test2b;
var
i:real;
m,p:integer;
begin
write('Введите значение цикла for .. to .. do: '); (**)
read(m);
p:=1;

i:=1;
while i<=m do
begin
p:=round(p*i);
i:=i+1;
end;

// for i:=1 to m do
// p:=round(p*i);
// writeln('Значение вычислений p:=p*i в теле цикла for равно: ',p); (**)
i:=10;
repeat
p:=p div round(i);
i:=i-1
until i=0;
writeln('Значение вычислений p:=p div i в теле цикла равно: ',p); (**)
while i<=m do begin
p:=p+round(i);
i:=i+1
end;
writeln('Значение вычислений p:=p+i в теле цикла равно: ',p)
end.
Соседние файлы в папке Вар_12