Источник: sous-otvet.net
Напишите в ответе наибольшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 16. var k, i : longint; function f(n: longint): longint; begin f := n * n * n; end; function g(n: longint): longint; begin g := 3*n + 3; end; begin readln(k); i := 1; while f(i) < g(k) do i := i+1; writeln(i) end.
Вот значения при которых мы получим такой ответ:
9 10 11 12 13 14 15 16 17 18 19 20
Наибольшее = 20.
Прости, нашел я это глупым методом поставив цикл for k:0 to 1000000
и выводя все значения. Ибо нету времени разбираться. Не знаю так-же что такое longint , потом обязательно для себя рассмотрю что это 🙂
Вот пример того как я это нашел, хоть медот и тупой, но он работает:
var k, i,max,m : longint;
function f(n: longint): longint;
begin f := n * n * n;
Задания 19-21 | ЕГЭ по информатике | ДЕМО-2023
end;
function g(n: longint): longint;
begin g := 3*n + 3;
end;
begin i := 1;
for k:=0 to 1000000 do begin
while f(i) lt; g(k) do i := i+1;
if i=4 then writeln(k);
end;
end.
Источник: otvechu.com
Тест по заданию 21. ЕГЭ по информатике и ИКТ — Онлайн-тесты.
1. Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма:
var a,b,i,M,R :integer;
Function F(n: integer):integer;
begin
F := (n-4)*(n-12)+5;
end;
begin
a := -15; b := 15;
M := a; R := F(a);
for i := a to b do begin
if (F(i) < R) then begin
M := i;
R := F(i)
end;
end;
writeln(M)
end.
2. Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма:
var a,b,i,R :integer;
Function F(n: integer):integer;
begin
F := (n-8)*(n-6)+5;
end;
begin
a := -15; b := 15;
R := F(a);
for i := a to b do begin
if (F(i) < R) then begin
R := F(i)
end;
end;
writeln(R)
end.
3. Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма:
var a,b,i,M,R :integer;
Function F(n: integer):integer;
begin
F := n*(n — 15);
end;
begin
a := -10; b := 10;
M := a; R := F(a);
for i := a to b do begin
if (F(i) < R) then begin
M := i;
R := F(i)
end;
end;
writeln(M)
end.
4. Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма:
var a,b,i,M,R :integer;
Function F(n: integer):integer;
begin
F := -(n + 10)*(n + 10);
end;
begin
a := -10; b := 10;
M := a; R := F(a);
ЕГЭ Информатика 21 Задание 2019
for i := a to b do begin
if (F(i) < R) then begin
M := i;
R := F(i)
end;
end;
writeln(M)
end.
5. Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k=100. Значение k=100 также включается в подсчёт различных значений k.
var
k, i: longint;
function f(n: longint): longint;
begin
f := n*n;
end;
begin
readln(k);
i := 0;
while f(i) < k do
i := i+1;
writeln(i)
end.
6. Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k=47. Значение k=47 также включается в подсчёт различных значений k.
var
k, i: longint;
function f(n: longint): longint;
begin
f := n*n+2;
end;
begin
readln(k);
i := 10;
while f(i) > k do
i := i-1;
writeln(i)
end.
7. Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k=18. Значение k=18 также включается в подсчёт различных значений k.
var
k, i: longint;
function f(n: longint): longint;
begin
f := n*n*n;
end;
begin
readln(k);
i := 1;
while f(i) < k do
i := i+2;
writeln(i)
end.
8. Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k=55. Значение k=55 также включается в подсчёт различных значений k.
var
k, i : longint;
function f(n: longint) : longint;
begin
f := n * n;
end;
begin
readln(k);
i := 0;
while f(i) < k do
i := i+1;
if f(i)-k < k-f(i-1) then
writeln(i)
else
writeln(i-1);
end.
9. Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k=33. Значение k=33 также включается в подсчёт различных значений k.
var
k, i: longint;
function f(n: longint) : longint;
begin
f := n * n * n;
end;
begin
readln(k);
i := 0;
while f(i) < k do
i := i+1;
if f(i)-k+5 < k-f(i-1) then
writeln(i)
else
writeln(i-1);
end.
10. Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k=20. Значение k=20 также включается в подсчёт различных значений k.
var
k, i: longint;
function f(n: longint) : longint;
begin
f := n * n;
end;
begin
readln(k);
i := 0;
while f(i) < k do
i := i+1;
if f(i)-k < k-f(i-1) then
writeln(i)
else
writeln(i+2);
end.
Источник: infbu.ru