Операторы ввода и вывода
Карточка No 11​

Дано: a=10 см b=10 см k_1=1200×1200 dpi i=24 bit i  -  ? решение: i=k*i 1 дюйм = 2,54 см a=b=10 см=10/2,54=3,94 дюйм k=k_1ab=1200×1200  dpi*3,94 дюйм*3,94 дюйм=22353984 i=22353984*24  бит=536495616 бит  ≈ 64 мбайт ответ:   i≈64 мбайт

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

 

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.

не наю че за гамбас

пишу на паскале

 

var a: array[1..100] of integer;

i,n,k5,k4,k2: integer;

s: real;

begin

  read(n);

  for i : = 1 to n do begin

      writeln(' оценку учиника ',i);

      readln(a[i]);

      s: =s+a[i];

      if a[i]=5 then k5: =k5+1;

      if a[i]=4 then k4: =k4+1;

      if a[i]=2 then k2: =k2+1;

  end;

  writeln(s/n,k5,k4,k2);

 

end.

перевозим сначала козу 

потом капусту и овцу перевозим назад к волку 

берём волка 

потом в онце перевозим козу