//Pascal ABC.NET v3.1 сборка 1172
var
n: real;
begin
read(n);
writeln(n, ' суток=', n * 1440, ' минут');
writeln(n, ' минут=', n * 60, ' секунд');
end.
Пример ввода:
12
Пример вывода:
12 суток=17280 минут
12 минут=720 секунд
var
i, j: integer;
begin
for i:= 1 to 99 do
for j:= i +1 to 100 do
if i*i*i = j*j then writeln(i,' ',j);
end.
111001 это 57
<span>1011011 это 91</span>