Открытка на день рождения имя входного файла: стандартный ввод имя выходного файла: стандартный вывод ограничение по времени: 1 секунда ограничение по памяти: 256 мегабайт у васи скоро день рождения, поэтому петя хочет отправить ему открытку. он уже купил прекрасную открытку и конверт, но тут перед ним возникла проблема: открытка большая и может не влезть в конверт. открытка и конверт представляют из себя два прямоугольника со сторонами p1 и p2 для открытки и e1 и e2 для конверта соответственно. открытку можно поместить в конверт только таким образом, чтобы стороны открытки были параллельны сторонам конверта. вася просит ему определить, поместится ли его открытка в купленный им конверт. формат входных данных первая строка содержит два целых числа e1 и e2 (1 ⩽ e1, e2 ⩽ 105 ) — длины сторон конверта. вторая строка содержит два целых числа p1 и p2 (1 ⩽ p1, p2 ⩽ 105 ) — длины сторон открытки. формат выходных данных выведите «yes» (без кавычек), если васе удастся разместить открытку в конверте и «no» в противном случае.

👇

Увидеть ответ

Ответ:

okszav

03.09.2022

ujh

Объяснение:

4,5(91 оценок)

Открыть все ответы

Ответ:

almiradkzbd

03.09.2022

Решение №1 (без массивов)

var a,n,i,j,s:integer;
begin
writeln('Введите количество цифр в числе');
readln(n);
for i:=1 to n do begin
    writeln('Введите ',i,' цифру из ',n);
    readln(a);
    for j:=1 to n-i do a:=a*10;
    s:=s+a;
end;
writeln('Натуральное число: ',s);
end.

Тестовое решение

Введите количество цифр в числе
5
Введите 1 цифру из 5
9
Введите 2 цифру из 5
2
Введите 3 цифру из 5
7
Введите 4 цифру из 5
3
Введите 5 цифру из 5
1
Натуральное число: 92731

Решение №2 Если очень надо использовать массив (хотя на мой взгляд совсем не нужно)

//PascalABC.NET (версия 3.1, сборка 1198)
var a,n,i,j,s:integer;
mas:array[1..10]of integer;
begin
writeln('Введите количество цифр в числе');
readln(n);
for i:=1 to n do begin
    writeln('Введите ',i,' цифру из ',n);
    readln(mas[i]);
    a:=mas[i];
    for j:=1 to n-i do a:=a*10;
    s:=s+a;
end;
writeln('Натуральное число: ',s);
end.

Тестовое решение

Введите количество цифр в числе
5
Введите 1 цифру из 5
5
Введите 2 цифру из 5
4
Введите 3 цифру из 5
3
Введите 4 цифру из 5
2
Введите 5 цифру из 5
2
Натуральное число: 54322

4,7(95 оценок)

Ответ:

aimuratsergei1234

03.09.2022

Для того, чтобы эта программа заработала надо добавить перед описанием процедуры F следующую строчку:
procedure G(n: integer);forward;
Так как в процедуре F есть вызов процедуры G описанной дальше по тексту программы.
После исправления кода и запуска программы с F(12) получим 17 звездочек. По шагам это будет выглядеть так:

Вызов процедуры F и выполнение
* n = 12
* n = 12
Вызов процедуры G и выполнение
* n = 11
* n = 11
Вызов процедуры F и выполнение
* n = 9
* n = 9
Вызов процедуры G и выполнение
* n = 8
* n = 8
Вызов процедуры Fи выполнение
* n = 6
* n = 6
Вызов процедуры G и выполнение
* n = 5
* n = 5
Вызов процедуры F и выполнение
* n = 3
* n = 3
Вызов процедуры G и выполнение
* n = 2
* n = 2
Вызов процедуры F и выполнение
* n = 0

Ниже записаны две рекурсивные функции (процедуры): f и g.сколько символов «звёздочка» будет напечата