Для заданного положительного вещественного числа a необходимо найти максимальное целое число k, при - id503845320220303 от AkvaH2O 03.03.2022 12:23

Question

Информатика: Для заданного положительного вещественного числа a необходимо найти максимальное целое число k, при котором выполняется неравенство 1+1/2++1/k

AkvaH2O · Accepted Answer

1. Современное решение

PascalABC.NET 3.2, сборка 1417 от 28.03.2017
Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Введите двухзначное число:');
Writeln('Максимальная цифра ',max(n div 10, n mod 10))
end.

2. Школьное решения уровня ТурбоПаскаль 1983г.

var
n,d,e,max:integer;
begin
Write('Введите двухзначное число: ');
Read(n);
d:=n div 10;
e:=n mod 10;
if d>e then max:=d
else max:=e;
Writeln('Максимальная цифра ',max)
end.

3. Пример работы обоих программ (одинаковый)

Введите двухзначное число: 37
Максимальная цифра 7

Для заданного положительного вещественного числа a необходимо найти максимальное целое число k, при котором выполняется неравенство 1+1/2++1/k

MOGZ ответил