Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!
Readln(K);
|
|
while (i> 0) and (F(i) > K) do
i: =i-1;
Writeln(i)
End.
58) Определите, какое значение H нужно ввести, чтобы число, напечатанное в результате выполнения следующего алгоритма, было наибольшим.
var a, b, t, M, R, H: integer;
Function F(H, x: integer): integer;
Begin
F: = -5*(x-H)*(x-H)+3;
End;
BEGIN
Readln(H);
a: = -20; b: = 60;
M: = a; R: = F(H, a);
for t: = a to b do begin
if (F(H, t) < R) then begin
M: = t;
R: = F(H, t)
End
End;
Write(R)
END.
59) Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 36. Значение k = 36 также включается в подсчёт различных значений k.
var k, i: longint;
function f(n: longint): longint;
Begin
f: = n*(n-1)+10
End;
Begin
Readln(k);
i: = 0;
while (f(i)< k) do
i: = i+1;
Writeln(i)
End.
60) Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 47. Значение k = 47 также включается в подсчёт различных значений k.
var k, i: longint;
function f(n: longint): longint;
Begin
f: = n*(n+1)-5
End;
Begin
Readln(k);
i: = 0;
while (f(i)< =k) do
i: = i+1;
Writeln(i)
End.
61) При каком наибольшем значении входной переменной k программа выдаёт тот же ответ, что и при входном значении k = 64?
var k, i: longint;
function f(n: longint): longint;
Begin
f: = n * n - 20
End;
Begin
Readln(k);
i: = 12;
while (i> 0) and (f(i)> k) do
i: = i-1;
Writeln(i)
End.
62) При каком наименьшем значении входной переменной k программа выдаёт тот же ответ, что и при входном значении k = 90?
var k, i: longint;
function f(n: longint): longint;
Begin
f: = n * n * n - 30
End;
Begin
Readln(k);
i: = 12;
while (i> 0) and (f(i)> k) do
i: = i-1;
Writeln(i)
End.
63) (Д.Ф. Муфаззалов, Уфа) Какое число будет напечатано в результате выполнения программы:
var i, k: integer;
function f(x: integer): integer;
Begin
if x > 0 then
f: = x mod 10 + f(x div 10)
Else
f: = 0;
End;
Begin
k: = 0;
for i: = 1000 to 9999 do
if f(i mod 10) = 1 then
if f(i div 100) = f(i mod 100) then k: = k + 1;
Writeln(k);
End.
64) (Д.Ф. Муфаззалов, Уфа) Какое число будет напечатано в результате выполнения программы:
var i, k: integer;
function f(x: integer): integer;
Begin
if x > 0 then
f: = x mod 10 + f(x div 10)
Else
f: = 0;
End;
Begin
k: = 0;
for i: = 1000 to 9999 do
if f(i mod 100) = 4 then
if f(i div 100) = f(i mod 100) then k: = k + 1;
Writeln(k);
End.
65) (Д.Ф. Муфаззалов, Уфа) Какое число будет напечатано в результате выполнения программы:
var i, k: integer;
function f(x: integer): integer;
var m: integer;
Begin
if x < 10 then f: = x
Else begin
m: = f(x div 10);
if m < x mod 10 then
f: = x mod 10
else f: = m;
End;
End;
Begin
k: = 0;
for i: = 1000 to 9999 do
if f(i mod 100) = 1 then
if f(i div 100) = f(i mod 100) then
k: = k + 1;
Writeln(k);
End.
66) (Д.Ф. Муфаззалов, Уфа) Напишите в ответе количество различных значений входной переменной a из интервала от 1000 до 2000 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 1111. Значение a = 1111 также включается в подсчёт различных значений a:
var a, i, k: integer;
function f(x: integer): integer;
var m: integer;
Begin
if x < 10 then f: = x
|
|