Партнерка на США и Канаду по недвижимости, выплаты в крипто
- 30% recurring commission
- Выплаты в USDT
- Вывод каждую неделю
- Комиссия до 5 лет за каждого referral
Определите значение переменной с после выполнения следующего фрагмента программы:
a := 40;
b := 6;
a := a * 3 / b;
if a > b then
c := a + 5 * b
else
c := a - 5 * b;
Определите, что будет напечатано в результате работы следующего фрагмента программы:var n, s: integer;
begin
n := 0;
s := 0;
while s <= 256 do begin
s := s + 25;
n := n + 1
end;
write(n)
end.
Определите, что будет напечатано в результате работы следующего фрагмента программы:var n, s: integer;
begin
n := 1;
s := 0;
while n <= 101 do begin
s := s + 7;
n := n + 1
end;
write(s)
end.
Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями:F(0) = 1, F(1) = 1
F(n) = F(n–1)*F(n-2)+2, при n > 1
Чему равно значение функции F(5)? В ответе запишите только натуральное число.
Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями:F(0) = 1, F(1) = 1
F(n) = F(n–1)*F(n-2)+1, при n > 1
Чему равно значение функции F(6)? В ответе запишите только натуральное число.
Ниже записана программа. Получив на вход число
, эта программа печатает два числа, 
и 
. Укажите наименьшее из таких чисел 
, при вводе которых алгоритм печатает сначала 3, а потом 7. var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 5 do begin
L:= L + 1;
if M < (x mod 10) then M:= x mod 10;
x:= x div 10;
end;
writeln(L); write(M);
end.
Ниже записана программа. Получив на вход число
, эта программа печатает два числа, 
и 
. Укажите наибольшее из таких чисел 
, при вводе которых алгоритм печатает сначала 3, а потом 4. var x, L, M: integer;
begin
readln(x);
L:=0; M:=9;
while x > 5 do begin
L:= L + 1;
if M > (x mod 10) then M:= x mod 10;
x:= x div 10;
end;
writeln(L); write(M);
end.
8) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b,t, M,R :integer;
Function F(x: integer):integer;
begin
F := 19*(11-x)*(11-x)+27;
end;
BEGIN
a := -20; b := 20;
M := a; R := F(a);
for t := a to b do begin
if (F(t) < R) then begin
M := t;
R := F(t);
end;
end;
write(R);
END.
9) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b,t, M,R :integer;
Function F(x: integer):integer;
begin
F := 19*(16-x)*(16-x)+27;
end;
BEGIN
a := -20; b := 20;
M := a; R := F(a);
for t := a to b do begin
if (F(t) < R) then begin
M := t;
R := F(t);
end;
end;
write(M);
END.
