Программирование
Здравствуйте! Не могу точно определить, где я сделал ошибку. После выполнения рекурсивных функций нужно найти сумму всех выведенных чисел на экране. У меня вышло 5+9+5+4+5=28, но в ответах указано 16.

procedure F(n: integer); forward;
procedure G(n: integer); forward;

procedure F(n: integer);
begin
writeln (n mod 2);
if n mod 2 =0 then F(n div 2)
else G((n-1)div 2);
end;

procedure G(n: integer);
begin
writeln(n);
if n>0 then F(n);
end;


Заранее спасибо!
Илья - https://vk.com/keveterete
10 июня 2018
Илья Тарасов
Укажите количество двузначных натуральных чисел, при вводе которых приведенная ниже программа напечатает число, отличное от 0.
var
i, n: longint;
begin
i := 0;
readln(n);
while (n > 0) do
begin
i := i + n mod 9;
n := n div 9;
end;
writeln(i mod 8);
end.

Впервые вижу такой вид задания, нигде не видел разборов на него, надеюсь вы поможете

Савелий, https://vk.com/3yxpaaa
18 мая 2018
Савелий Киреев
Помогите, пожалуйста.
Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 16.

Паскаль
program B20;
var x, a, b, d: integer;
begin
readln(x);
a := 0; b := 0; d := 0;
while x > 0 do
begin
if d mod 2 = 0 then
a := a+ x mod 10
else
b := b+ x div 10
x := x div 10
d := d + 1
end;
writeln(a); write(b);
end.
18 марта 2018
Александра Белова
Получив на вход число x, этот алгоритм печатает два числа: L и M. Укажите наибольшее число x, при вводе которого алгоритм печатает сначала 7, а потом 8.
Pascal:


var x,L,M:integer;
begin
readln(x);
L:=0;
M:=0;
while x>0 do
begin
M:=M+1;
if x mod 2 0 then
L:=L+1;
x:=x div 2;
end;
writeln(L);
writeln(M);
end.
30 апреля 2017
Артём Матвеев
Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает число M. Известно, что x > 100. Укажите наименьшее такое (т.е. большее 100) число x, при вводе которого алгоритм печатает 2.
var x,L,M:integer;
begin
readln(x);
L:=x-12;
M:=x+12;
while LM do
if L>M then
L:=L-M
else
M:=M-L;
writeln(M);
end.
31 декабря 2016
Stepan Adamov
Исполнитель Демо-ЕГЭ преобразует число на экране. У исполнителя есть четыре команды, которым присвоены номера:
1. Прибавить 1
2. Умножить на 2
3. Умножить на два и отнять 1 (Команду для каждого числа можно использовать ровно один раз, кроме 1 – для нее использовать команду нельзя.)
4. Прибавить 5
Программа для исполнителя Демо-ЕГЭ – это последовательность команд. Найдите и запишете число на выходе программы, если на вход ему подали «1», и известно, что для достижения этого числа существует 49 программ.
Ответ: ___________________________.
15 декабря 2016
Гость
Ниже на пяти язы­ках про­грам­ми­ро­ва­ния за­пи­са­на ре­кур­сив­ная функ­ция (про­це­ду­ра) F.


Пас­каль
procedure F(n: integer);
begin
write(n);
if n > 2 then
begin
F(n − 1);
F(n − 2);
F(n − 3)
end
end;

Что вы­ве­дет про­грам­ма при вы­зо­ве F(4)? В от­ве­те за­пи­ши­те по­сле­до­ва­тель­ность вы­ве­ден­ных цифр слит­но (без про­бе­лов).
7 декабря 2016
Гость
Ниже на четырех языках программирования записан рекурсивный алгоритм F.
Procedure F (n: integer);
Begin
Writeln (n);
If n
13 сентября 2016
Гость
var x, l, m: integer;
begin
readln(x);
l := 0; m := 0;
while x > 0 do
begin
m:=m+1;
if x mod 2 0 then
l := l + 1;
x := x div 2;
end;
writeln(l); write(m);
end.



Укажите наименьшее число х, при вводе которого алгоритм печатает сначала 3, потом 6.
11 июня 2016
Гость
Укажите наибольшее х, при вводе которого алгоритм печатает сначала 3, а потом 4.

Var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x>0 do
begin
L:=L+1
if M
11 июня 2016
As No
function F(n: integer):
integer;
begin
if n < 6 then
F := n +
F(n+3)*F(2*n)
else
F := 2*n;
end;

Чему будет равно значение, вычисленное алгоритмом при выполнении вызова F(3)?
11 июня 2016
Гость
Исполнитель Редактор получает на вход строку цифр и преобразовывает её.
Редактор может выполнять две команды, в обеих командах v и w обозначают
цепочки цифр.
А) заменить (v, w).
Эта команда заменяет в строке первое слева вхождение цепочки v на
цепочку w. Например, выполнение команды
заменить (111, 27)
преобразует строку 05111150 в строку 0527150.
Если в строке нет вхождений цепочки v, то выполнение команды заменить
(v, w) не меняет эту строку.
Б) нашлось (v).
Эта команда проверяет, встречается ли цепочка v в строке исполнителя
Редактор. Если она встречается, то команда возвращает логическое значение
«истина», в противном случае возвращает значение «ложь». Строка
исполнителя при этом не изменяется.
Цикл
ПОКА условие
последовательность команд
КОНЕЦ ПОКА
выполняется, пока условие истинно.
В конструкции
ЕСЛИ условие
ТО команда1
ИНАЧЕ команда2
КОНЕЦ ЕСЛИ
выполняется команда1 (если условие истинно) или команда2 (если условие
ложно).
Какая строка получится в результате применения приведённой ниже
программы к строке, состоящей из 95 идущих подряд цифр 3? В ответе
запишите полученную строку.
НАЧАЛО
ПОКА нашлось (999) ИЛИ нашлось (333)
ЕСЛИ нашлось (999)
ТО заменить (999, 3)
ИНАЧЕ заменить (333, 9)
КОНЕЦ ЕСЛИ
КОНЕЦ ПОКА
КОНЕЦ


Делала вручную получается 33933. Что не так?
10 июня 2016
As No
Чему будет равно значение, вычисленное при выполнении вызова G(5)?

function F(n: integer): integer;
begin
if n > 2 then
F := F(n-1)+G(n-1)+F(n-2)
else
F := n;
end;
function G(n: integer): integer;
begin
if n > 2 then
G := G(n-1)+F(n-1)+G(n-2)
else
G := 3-n;
end;
7 июня 2016
Гость
http://i.ggddzz.ru/ege/2016/EGE-2016-Informatika-Tipovye-testovye-zadaniya-Leschiner/42.jpg
Условие задания 27, в.3
Пожалуйста, проверьте эффективность и правильность решения(ЯП Pascal; PascalABC.Net):
var f:text;
buf:string[15];
a:array[1..12] of real;
b:array[1..12] of integer;
slot,i,k:integer;
max:real;
begin
for i:= 1 to 12 do begin
a[i]:= 0;
b[i]:= 0;
end;
max:= -9999.0;
AssignFile(f,'meteo.dat');
Reset(f);
while EOF(f) = False do begin
readln(f,buf);
slot:= StrToInt(copy(buf,4,2));
delete(buf,1,6);
a[slot]:= a[slot] + StrToFloat(buf);
b[i]:= b[i] + 1;
end;
CloseFile(f);
for i:= 1 to 12 do begin
a[i]:= a[i] / b[i];
if max < a[i] then begin
max:= a[i];
k:= 1;
buf:=IntToStr(i);
end
else if max = a[i] then begin
k:=k + 1;
buf:= buf + ',' + IntToStr(i);
end;
end;
writeln(k);
writeln(buf);
writeln(max);
end.
21 мая 2016
Гость
Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма:
Pascal:
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.


Для нахождения вершины параболы воспользуемся формулой:
x = -b:2a = 16:2 = 8

Откуда появилась эта формула и цифры 16 и 2 ?
19 мая 2016
Максим Поляев
Страницы: 1 2 3 Следующая Последняя
Перевести число из в Результат: 510 = 1012