Даны три действительных числа. возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень - отрицательные. писать нужно на паскале.

var a,b,c: integer;

begin

write('введите a = ' ); readln(a);

if a> =0 then a: =sqr(a) else a: =sqr(a*a);

write('введите b = ' ); readln(b);

if b> =0 then b: =sqr(b) else b: =sqr(b*b);

write('введите c = ' ); readln(c);

if c> =0 then c: =sqr(c) else c: =sqr(c*c);

writeln('a = ',a,' b = ',b,' c = ',c);

end.

1)10см=3,937дюма

dpi - точек на дюйм

3,937*1000=3937 - точек

3937*3937=15499969 точек

каждая точка кодируется 2-мя байтами 

всего  30999938 байт

1 мегабайт = 1024*1024=1048576

на картинку  29,56 мегабайта

2) 256 1 байт

200*100=20000 пикселей

1 килобайт = 1024 байта

картинка займет 20000/1024=19,5 килобайта

ps а вообще, каждое нужно писать отдельно

мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.