1документ содержит точечную черно-белую фотографию 15x20 см. каждый квадратный сантиметр содержит 1200 точек, каждая точка описывается 16 битами. каков общий информационный объем документа в килобайтах? (принять 1 кбайт = 1000 байт.) решение: ответ:

15*20 = 300 см 300*1200 = 360000 пикселей 360000*16 = 5760000 бит = 5760 кбайт

Var a, b: integer; var c: string; begin writeln('введите 1 число.'); readln(a); writeln('введите 2 число.'); readln(b); writeln('знак операции.'); readln(c); if c='*' then writeln(a*b); if c='/' then writeln(a/b); if c='-' then writeln(a-b); if c='+' then writeln(a+b); end. 2   var a, b: real; begin writeln('зарабаток пети: '); readln(a); writeln('зарабаток петрова: '); readln(b); if a> b then writeln('петя заработал больше петрова.') else if a=b then writeln('петров и петя заработали одинаково.') else writeln('петров заработал больше пети.'); writeln('среднее: ', (a+b)/2); end.

Program lol (input, output); var a, n, b, i, p,s,g m: integer; c: real; begin n: =random(10000); writeln (n); a: =n; b: =0; c: =0; p: =1; g: =1; while a < > 0 do begin a: =a div 10; b: =b+1; end; while b < > 0 do begin p: =1; for m: =1 to b do p: =p*10; s: =(n mod p) div (p div 10); c: =c+s; g: =g*s; b: =b-1; end; writeln (c); writeln (g); end. program lol (input, output); var a, b, i, z: integer; begin b: =0; a: =3; z: =0; while a > 2 do begin read (a); z: =0; for i: =2 to a do begin if a mod i = 0 then begin z: =z+1; if (a=i) and (z=1) then b: =b+1; end; end; end; writeln (b); end.