Заполните таблицу, в каждой строке которой одно и то же целое число должно быть записано в различных - id1469005620230425 от GenaTurboKrytt 25.04.2023 08:59

Question

Информатика: Заполните таблицу, в каждой строке которой одно и то же целое число должно быть записано в различных системах счисления. | Двоичная | Восьмеричная | Десятичная | Шестнадцатеричная | | 1001001 | - | - | - | | - | 362 | - | - | | - | - | 761 | - | | - | - | - | 1F |

GenaTurboKrytt · Accepted Answer

Var
s:string;
c1,cn:char;
n:integer;
begin
Write('Введите натуральное число: '); Read(n);
Str(n,s);
c1:=s[1];
cn:=s[Length(s)];
if c1>cn then Writeln('Первая цифра больше последней')
else
if c1<cn then Writeln('Первая цифра меньше последней')
else Writeln('Первая и последняя цифры одинаковы')
end.

Тестовые решения
Введите натуральное число: 362336
Первая цифра меньше последней

Введите натуральное число: 7341423
Первая цифра больше последней

Введите натуральное число: 4624
Первая и последняя цифры одинаковы

MOGZ ответил