Конечность алгоритма - его дискретность, т.е. выполняя алгоритм исполнитель не зациклится и достигнет какого-то результата.
Скорее всего нужно найти количество до n-нного числа, тогда:
var n: integer;
begin
readln(n);
writeln((n div 3) div 2);
end.
поставь пожалуйста как лучший ответ, к тому же решение довольно хитрое
Чтобы узнать значение переменной i после выполнения программы, нужно 1000/3, так как цикл будет выполняться, пока i < 1000.
1000/3 ~ 333.
Проверяем: 333 * 3 = 999.
При этом значении цикл повторяется, так как 999 < 1000.
Чтобы завершить цикл, сделаем еще одну итерацию.
I = 1002.
1002 > 1000, соответственно цикл прекращается и на вывод идет переменная i.
Ответ: 1002.
Var x,f:real;
begin
write('Введите х:');
readln(x);
f:=sin(x)-cos(x);
writeln('sin(',x,')-cos(',x,')=',f);
end.
Тестовое решение:
Введите х:125
sin(125)-cos(125)=-1.40375497133289
Program my;
begin
writeln('Я люблю информатику');
end.