Определи количество пикселей (суммарно). запиши ответ. разрешение монитора 480×320.

var r,l,s: real; beginwrite('r='); read(r); s: =pi*sqr(r); l: =2*pi*r; write('s=',s,'; l=',l); end.

var a,p: integer; beginread(a); p: =(a mod 10)*(a div 100)*(a mod 100 div 10); write(p); end.

var a,b,c,min: integer; beginwriteln('введи 3 числа'); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln(3*min: 4); readln; end.

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end.