program a;
uses crt;
var i:integer;
function fun(x:real):real;
begin
fun:=exp(3*ln(x));
end;
begin
clrscr;
for i:=1 to 6 do begin
writeln('f( ',2*i,')= ', fun(2*i));
end;
readkey;
end.
1100101(2) = 101(10)
1000001 (2) = 65 (10)
<span>100101 (2) = 37 (10)
Знаки: <, <, =
В первом случае больше 2, во втором - 2, в 3 - равны. </span>
//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 секунд
x: - входное число, целое
а: - целое
шаг 1.
x - делится на 5 ?
если да то ответ YES, выход
шаг 2.
а: = x-5*целое (х/5)
шаг 3
a - делится на 3 ?
если да то ответ YES, выход
шаг 4
a:=a+5
шаг 5
a - больше чем х ?
если да то ответ NО, выход
переход на шаг 3