Ответ: г.
А) Выдает строку, которую задал.
Б) получается бессмысленный цикл, так как условие цикла "ПОКА" противоречит условию "ЕСЛИ". Цикл не будет выполняться.
В) выдаёт ту же строку.
Г) сортирует в порядке возрастания.
Решение смотри во вложении при вводе" 8, 2, 5".
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
i, n: integer;
p: BigInteger;
begin
write('Введите число N ');
readln(n);
p := 1;
for i := 1 to n do p := p * i;
writeln( 'Произведение чисел от 1 до ',n,' равно : ',p);
end.
Тест №1:
Введите число N 5
Произведение чисел от 1 до 5 равно : 120
Тест №2:
Введите число N 100
Произведение чисел от 1 до 100 равно : 93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000
Var
sum: real;
i: integer;
begin
sum := 1000;
for i := 2017 to 2030 do
sum := 1.2 * sum;
writeln(sum);
end.
program sasa;
function stepenj (val:integer):integer;
var inp,i,tmp:integer;
begin
tmp:=val;
Result:=1;
Writeln ('Vvedi stepenj');
Readln (inp);
for i:=1 to inp do
Result:=Result*tmp;
Writeln (Result);
end;