8. Определите значение переменной c после выполнения следующего фрагмента программы, запишите решение:
a:=100;
b:=20;
repeat
i:= a div b;
c:=i + 5;
b:= a div b;
until b>=100;

Question

Информатика: 8. Определите значение переменной c после выполнения следующего фрагмента программы, запишите решение: a:=100; b:=20; repeat i:= a div b; c:=i + 5; b:= a div b; until b =100;

mehrobjr1 · Accepted Answer

Вот оттестированный мой вариант программы. Тестировал на числах от 1 до 6. Писать начал чуть раньше Антагониста, но он оказался шустрее :))

//PascalABC
//NaaMan
//Программа расчитана ТОЛЬКО на факториалы
//Проверки ошибочного ввода НЕТ
var n, result, i : real;
begin
    write('Введите факториал > ');
    readln(n);
    if (n = 1) then
        result := 1
    else begin
        i := 2;
        while n <> 1 do begin
            n := n / i;
            result := i;
            i := i + 1;
        end;
    end;
    writeln('Число ', result);
end.

В! много ! 9 8) известен факториал числа n. найти это число. 15) начав тренировки, лыжник в первый д

В! много ! 9 8) известен факториал числа n. найти это число. 15) начав тренировки, лыжник в первый д

8. Определите значение переменной c после выполнения следующего фрагмента программы, запишите решение: a:=100; b:=20; repeat i:= a div b; c:=i + 5; b:= a div b; until b>=100;

MOGZ ответил

8. Определите значение переменной c после выполнения следующего фрагмента программы, запишите решение:
a:=100;
b:=20;
repeat
i:= a div b;
c:=i + 5;
b:= a div b;
until b>=100;