По каким признакам можно предположить, что компьютер заражен вирусом? 1. появляются новые файлы и удаляются существующие 2. уменьшается объем свободной оперативной памяти 3. возникают сбои при работе программ 4. изменяется размер файлов 5. по электронной почте приходят непонятные сообщения возможны несколько вариантов ответа

type oras = (chisinau, orhei, balti, tigina, tiraspol); zi = (l, ma, mi, j, v, s, d); consum = array [oras, zi] of real; var c : consum; r : oras; z : zi; i,k : integer; sum,min_r,max_r,min_z,max_z: real; n_max_r,n_min_r,n_max_z,n_min_z: integer; begin r: =chisinau; randomize; for i: =1 to 5 do begin z: =l; for k: =1 to 7 do begin c[r,z]: =random*100; z: =succ(z); end; r: =succ(r); end; r: =chisinau; for i: =1 to 5 do begin z: =l; case ord(r) of 0: writeln('chisinau'); 1: writeln('orhei'); 2: writeln('balti'); 3: writeln('tigina'); 4: writeln('tiraspol'); end; for k: =1 to 7 do begin write(c[r,z]: 6: 2); z: =succ(z); end; r: =succ(r); writeln; end; writeln('vsego za nedelu'); r: =chisinau; min_r: =99999; max_r: =0; n_min_r: =-1; n_max_r: =-1; for i: =1 to 5 do begin z: =l; case ord(r) of 0: write('chisinau sum='); 1: write('orhei sum='); 2: write('balti sum='); 3: write('tigina sum='); 4: write('tiraspol sum='); end; sum: =0; for k: =1 to 7 do begin sum: =sum+c[r,z]; z: =succ(z); end; if sum> max_r then begin max_r: =sum; n_max_r: =ord(r); end; if sum< min_r then begin min_r: =sum; n_min_r: =ord(r); end;

r: =succ(r);

writeln(sum: 8: 2); end; writeln('po dnyam nedeli'); z: =l; min_z: =99999; max_z: =0; n_min_z: =-1; n_max_z: =-1;

for k: =1 to 7 do begin r: =chisinau; case ord(z) of 0: write('l sum='); 1: write('ma sum='); 2: write('mi sum='); 3: write('j sum='); 4: write('v sum='); 5: write('s sum='); 6: write('d sum='); end; sum: =0; for i: =1 to 5 do begin sum: =sum+c[r,z]; r: =succ(r); end; if sum> max_z then begin max_z: =sum; n_max_z: =ord(z); end; if sum< min_z then begin min_z: =sum; n_min_z: =ord(z); end; z: =succ(z); writeln(sum: 8: 2); end; writeln('gorod c maximalnim potrebleniem'); r: =chisinau; for i: =1 to 5 do begin if ord(r)=n_max_r then case ord(r) of 0: writeln('chisinau'); 1: writeln('orhei'); 2: writeln('balti'); 3: writeln('tigina'); 4: writeln('tiraspol'); end; r: =succ(r); end; writeln('gorod c minimalnim potrebleniem'); r: =chisinau; for i: =1 to 5 do begin if ord(r)=n_min_r then case ord(r) of 0: writeln('chisinau'); 1: writeln('orhei'); 2: writeln('balti'); 3: writeln('tigina'); 4: writeln('tiraspol'); end; r: =succ(r); end;

writeln('den c maximalnim potrebleniem'); z: =l; for k: =1 to 7 do begin if ord(z)=n_max_z then case ord(z) of 0: writeln('l'); 1: writeln('ma'); 2: writeln('mi'); 3: writeln('j'); 4: writeln('v'); 5: writeln('s'); 6: writeln('d'); end; z: =succ(z); end; writeln('den c minimalnim potrebleniem'); z: =l; for k: =1 to 7 do begin if ord(z)=n_min_z then case ord(z) of 0: writeln('l'); 1: writeln('ma'); 2: writeln('mi'); 3: writeln('j'); 4: writeln('v'); 5: writeln('s'); 6: writeln('d'); end; z: =succ(z); end;

readln;

end.

для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.