Решите с действиями. 1) компьютер имеет оперативную память 662 мб. количество соответствующих этой величине - id625557220210417 от Marinr 17.04.2021 07:02

Question

Информатика: Решите с действиями. 1) компьютер имеет оперативную память 662 мб. количество соответствующих этой величине бит больше.. 2) в процессе преобразования растрового графического файла количество цветов в палитре уменьшилось с 256 до 16. во сколько раз уменьшился размер файла?

Marinr · Accepted Answer

Var A,S,n:integer; Begin WriteLn( Введите целое число ); ReadLn(A); S:=0; n:=0; While A 0 do    Begin    S:=S+A mod 10;    n:=n+1;    A:= A div 10    End; WriteLn( Sr = ,S/n); End. Var A,S:integer; Begin WriteLn( Введите целое число ); ReadLn(A); S:=0; While A 0 do    Begin    if (A mod 10) mod 3 = 0 then S:=S+A mod 10;    A:=A div 10    End; WriteLn( S = ,S); End. Var A,m:integer; Begin WriteLn( Введите целое число ); ReadLn(A); m:=9; While A 0 do    Begin    if A mod 10 m then m:= A mod 10;   ...

MOGZ ответил