600 х 800 өлшемді терезе жасап оны жасыл түске бояйтын бағдарлама
кодын жазыңыз:

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

последнее будет неверно тк получается что для всех 99-и оно работает, а для себя- нет что противоречит условию именно поэтому девяносто девятое будет верно

var a,b,c,s: real;

begin

  read(a,b);

  c: =sqrt(sqr(a)+sqr(b));

  s: =0.5*a*b;

  write('гипотенуза треугольника равна: ',c,', площадь равна: ',s);

end.

вот программа

var a : integer; begin readln(a); if (a div 10 > 0)and(a div 100> 0)and(a div 100< 10) then writeln('число трехзначное') else writeln('число не трехзначное'); end.