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. // Конец программы
Просто перебираем все возможные 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