Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите максимальное и - id1608482420220118 от nikrozumenko 18.01.2022 15:15

Question

Информатика: Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите максимальное и запишите его в ответе в десятичной системе счисления. В ответе запишите только число, основание системы счисления указывать не нужно. 2816, 478, 1010102

nikrozumenko · Accepted Answer

var   s:string;   i:integer; begin   Write( Введите слово: ); Readln(s);   for i:=Length(s) downto 1 do Insert( ,s,i);   Writeln( Результат: ,s) end. Пример решения Введите слово: Паскаль Результат:  П а с к а л ь var   s1,s2,s3:string;   i:integer; begin   Write( Введите первое слово: ); Readln(s1);   Write( Введите второе слово той же длины: ); Readln(s2);   s3:= ;   for i:=1 to Length(s1) do s3:=s3+s1[i]+s2[i];   Writeln( Результат: ,s3) end. Пример решения Введите первое слово: Корова Введите...

MOGZ ответил