кроссворд по программе Скретч ключевое слово Скретч

program yravnenie;

var  a,b,c,d,x1,x2,p,q: real; begin  repeat  write('a= ');   readln(a);   if a=0 then writeln('error: a=0. enter another value');   until a< > 0;   write('b= ');   readln(b);   write('c= ');   readln(c);   p: =b/a;   q: =c/a;   d: =sqr(p/2)-q;   if d> 0 then  begin    writeln('x1 = ',-p/2-sqrt(d): 0: 5);     writeln('x2 = ',-p/2+sqrt(d): 0: 5);   end  else  if d=0 then  writeln('x1 = x2 = ',-p/2: 0: 5)  else  begin    writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5);     writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5);   end;   readln; end.

если положить, что вода замерзает при нуле градусов, то:

program ice;

var temp : integer;

begin

writeln('введите температуру');

read(temp);

if temp > 0 then write ('вода не замерзнет')

else write('вода замерзнет');

end.

из-за того, что там не было древесины, люди писали на глинянных тощечках. они колышками выдавливали символы.

не знаю сколько байт содержит символ в  kol8. но смотри как надо:

1. 4096*512*1280*(на кол-во байт в  kol8)

2.в 1мб=1024 кб=1  048 576 байт

3.получам кол-во мб текста:

4096*512*1280*(на кол-во байт в  kol8)/1  048 576

  ps. по-идее  kol8 равен 1 байту