Петя и катя - брат и сестра. петя кате по . он задумывает два натуральных числа х и у (x, y< =1000 а катя должна их отгадать. для этого петя делает две подсказки. он называет сумму этих чисел s и их произведение р. кате отгадать задуманные петей числа. pascal.

Просто перебираем все возможные x и y.

Free Pascal Compiler version 3.0.2

var x, y, S, P: integer;

begin

   readln(S, P);

   for x := 1 to 1000 do

       for y := 1 to 1000 do

           if (x + y = S) and (x * y = P) then

               writeln(x, ' ', y);

end.

Пример ввода:

99 1458

Пример вывода:

18 81

81 18

esc-клавиша, предназначенная для возврата к предыдущему состоянию (меню, экрану) или выходу из приложения или программы (в случае, если выход таким в данной интерпретации предусмотрен приложением) .

Tab-нужно чтобы расставлять стопоры, которые выделяют красную строку и отступ

Caps Lock-предназначенная для фиксации смены регистра букв со строчных на прописные.

Enter- для подтверждение

Backspase- удаляет текст, или букву

Num Lock- для переключения и фиксации числового регистра, расположена в левом верхнем углу цифрового блока клавиатуры

Space- для пробела

Shift-предназначенная для ввода заглавных букв

F1 – кнопка вызова справки системы, если вы находитесь на рабочем столе. Она же вызывает в активной программе.

F2 – можно переименовать файл или папку, которая выделена. Это работает и на рабочем столе, и в проводнике.

F3 – кнопка активирует поиск в проводнике. Это также работает на рабочем столе.  

F4 – в проводнике открывает адресную строку. В сочетании с клавишей обновить активное окно. Особенно это удобно делать в браузере, когда надо обновить страницу открытого сайта. В Word открывает раздел «найти и заменить», с которой вы быстро перейдёте на нужную страницу.

F6 – в большой части она применяется в браузере. Нажав, вы сразу перемещаетесь в адресную строку.

F7 – при работе в одной из офисных приложений Microsoft, делает проверку правописания.

F8 – её основное предназначение – это при загрузке Windows открывает список режимов включения операционной системы.

F9 – происходит обновление Word. Если же вы в Outlook, то примете или же отправите почту.

F10 – в проводнике открывает панель инструментов. В сочетании с Shift работает как правая кнопка мышки.

F11 – в браузере переходит в полноэкранный режим и выходит из неё.

F12 – открывает окно «сохранить как …» в Word.

program mas;

var

 number_month, i, amount, quantity, min: integer;

 A: array [1..15] of integer;

begin

 for i := 1 to 15 do  

 begin

   read(A[i]);

 end;

 min := A[1];

 for i := 1 to 15 do  

 begin

   if (A[i] mod 3 = 0) then

     amount := amount + A[i];

   if (A[i] > 20) and (A[i] < 80) then

     inc(quantity);

   if (A[i] < min) then

     min := A[i];

 end;

 writeln('Минимум: ', min);

 writeln('Сумма элементов, кратных 3: ', amount);

 writeln('Количество чисел > 20 и < 80: ', quantity);

end.

Объяснение:

program mas;  // Название программы

var  

 i, amount, quantity, min: integer; // Целочисленные переменные:

i - счётчик для foramount - сумма элементов, кратных 3quantity - количество элементов > 20 и < 80min - минимальный элемент массива

 A: array [1..15] of integer;  // Массив целочисленного типа А с индексами от 1 до 15

begin  // Начало программы

 amount := 0;  // Переменная, отвечающая за сумму элементов, кратных 3, равна 0

 quantity := 0; // Переменная, отвечающая за количество элементов >20 и <80, равна 0

 for i := 1 to 15 do  // Цикл для ввода пятнадцати чисел в массив

 begin  // Начало цикла

   read(A[i]);  // Ввод значений с клавиатуры

 end;  // Конец цикла

 min := A[1];  // Значение переменной, отвечающей за минимальный элемент массива, равен первому элементу массива

 for i := 1 to 15 do  // Цикл для прогона всех чисел массива

 begin  // Начало цикла

   if (A[i] mod 3 = 0) then  // Если значение элемента массива с индексом i делится на 3 без остатка, тогда

     amount := amount + A[i];  // Сумма = сумма + значение элемента массива с индексом i

   if (A[i] > 20) and (A[i] < 80) then  // Если значение элемента массива с индексом i > 20 И < 80, тогда

     inc(quantity);  // Увеличиваем значение переменной quantity на 1

   if (A[i] < min) then  // Если значение элемента массива с индексом i < значения переменной min, тогда

     min := A[i];  // Значение переменной min = значению элемента массива с индексом i

 end;  // Конец цикла

 writeln('Минимум: ', min);  // Вывод минимума

 writeln('Сумма элементов, кратных 3: ', amount);  // Вывод суммы элементов, попадающих под условие

 writeln('Количество чисел > 20 и < 80: ', quantity);  // Вывод количества чисел, попадающих под условие

end. // Конец программы