Кто СОЧ по информатике ​

program;   var  i: byte;   str: string;   begin  for i: =60 to 70 do  begin  str: =str+chr(i) ;   end;   writeln(str);   end.

var s,r: real;

begin

  read(r);

  s: =pi*sqr(r);

  writeln(s: 0: 4);

end.

картинка должна быть в папке с программой и быть в формате bmp

uses graphabc;

var n: string; b: picture; s: integer;

begin writeln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.

640*350=224 000 пикселей 224000*2=448 000 пикселей на 2-х страницах. 16 цветов - 4 битный цвет, то есть 2 пикселя занимают 1 байт. 448000/2=224 000 байт = 1 792 000 бит = 218,75 кб