Розв’яжіть рівняння 64х Кбайт=2 Мбайти * х = 32 х = 16 х = 128 х = 4

uses crt; var

  i,s1,s2: integer; begin  for i: =1 to 100 do  begin    if i mod 2=0 then s1: =s1+i    else s2: =s2+i;   end;   writeln('сумма четных чисел: ',s1);   write('сумма нечетных чисел:   ',s2); end.

program zadacha;

uses crt;

var otvet: real;

begin

otvet: = ((4785**45*45))/50;

writeln(otvet: 5: 5);

readkey;

end.

эти знаки изображали человека и части его тела, орудия труда, оружие, лодки, животных, птиц, рыб, растения, поля, воды, горы, звёзды и т. д. - т.е. конкретные предметы. это было начало письма. письменные знаки, засвидетельствованные древнейшими памятниками, могут быть без труда возведены к их первоначальному рисуночному образу.

program xxx;

  var i, j, k, min : integer;

              a: array[1..10, 1..20] of integer;

              b: array[1..10] of integer;

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

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

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.