Информатика көмектесіңіздерші

Question

Информатика: Информатика көмектесіңіздерші ​

максимка1905 · Accepted Answer

1)var n,k: integer; begin write( число: ); readln(n); k: =0; repeat k: =k*10+n mod 10; n: =n div 10; until n=0; writeln( новое число: ,k); end. 2) var n,k,m: integer; begin write( двоичное число: ); readln(n); k: =1; m: =0; repeat m: =m+k*(n mod 10); n: =n div 10; k: =k*2; until n=0; writeln( десятичное число: ,m); end....

Информатика көмектесіңіздерші​

MOGZ ответил