Регистрация
aaa1616
07.08.2020 00:18
Информатика
Есть ответ 👍

Переведите число 653 из десятичной в двоичную

114
155
Посмотреть ответы 1

Ответы на вопрос:

irinasid
irinasid
4,4(56 оценок)
Var n1,n2,a,b: integer;       d: byte; begin writeln('1 - ввести n1 и n2, 0 - выход'); readln(d); while d = 1 do     begin     write('n1 = '); readln(n1);     write('n2 = '); readln(n2);     for n2: = n1 to n2 do             begin             a: =n2;             b: =0;             while a> 0 do                   begin                   b: =b*10+a mod 10;                   a: =a div 10;                   end;             if b = n2 then write(n2,' ')             end;     writeln;     writeln('1 - продолжить, 0 - выйти');     readln(d);     end; end. правда, я не уверен, что она правильно работает на любых числах, поэтому ещё одна версия: var     n1,n2,d: integer;     a,b: string; begin writeln('1 - ввести n1 и n2, 0 - выход'); readln(d); while d = 1 do     begin     write('n1 = '); readln(n1);     write('n2 = '); readln(n2);     for n2: = n1 to n2 do             begin             a: =inttostr(n2);             b: ='';             for d: = length(a) downto 1 do                     b: =b+a[d];             if a=b then write(n2,' ')             end;     writeln;     writeln('1 - продолжить, 0 - выйти');     readln(d);     end; end.

Популярно: Информатика