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

194

411

Посмотреть ответы 2

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

Viktoria818

Информатика

4,7(48 оценок)

Const rn : string[36] = '0123456789abcdefghijklmnopqrstuvwxyz'; function decton(a : longint; raz : byte) : string; begin if a> raz-1 then decton: =decton(a div raz,raz)+rn[(a mod raz)+1] else decton: =rn[a+1]; end; begin writeln(decton(321,7)); { 636 } end.

VPVolkov03

Информатика

4,5(25 оценок)

Program var s: string; a: array[1..4] of integer; i: integer; begin read(s); for i: =1 to 4 do a[i]: =0; for i: =0 to length(s) do begin if s[i]=')' then inc(a[1]); if s[i]='(' then inc(a[2]); if s[i]='! ' then inc(a[3]); if s[i]='.' then inc(a[4]); end; if(a[1]> a[2])and(a[1]> a[3])and(a[1]> a[4]) then write('funny')else if(a[2]> a[1])and(a[2]> a[3])and(a[2]> a[4]) then write('sad') else if(a[3]> a[2])and(a[3]> a[1])and(a[3]> a[4]) then write('angry') else if(a[4]> a[2])and(a[4]> a[3])and(a[4]> a[1]) then write('deep') else write('unclear'); end.