Существует ли система счисления, в которой число 26, записанное в данной системе счисления, равняется - id939311220200821 от wwwnikitafakh 21.08.2020 01:22

Question

Информатика: Существует ли система счисления, в которой число 26, записанное в данной системе счисления, равняется кубу целого числа, записанного в этой же системе? если да, то укажите её основание.

wwwnikitafakh · Accepted Answer

1) program p1;
var a,b:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
if(a>=b) then writeln('максимальное число: ', a) else writeln('максимальное число: ', b);
end.

2)
program p1;
procedure MaxNumber(a,b: integer; var max: integer);
begin
if a>=b then max:=a else max:=b;
end;
var a,b,c,d,m:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
writeln('Введите 3-е число: ');read(c);
writeln('Введите 4-е число: ');read(d);
MaxNumber(a,b,m);
MaxNumber(m,c,m);
MaxNumber(m,d,m);
writeln('максимальное число: ',m);
end.

MOGZ ответил