Var a,b:real;
Begin
Write('Введите вес груши:'); readln(a);
Write('Введите вес яблока'); readln(b);
if a>b then writeln('Вес яблока: ',b);
if a<b then writeln('Вес груши: ',a);
if a=b then writeln('Вес яблока и груши: ',a);
end.
1. c)
2. d)
3. d)
4. d)
5. b)
6. d)
7. a)
8. a)
9. ядро вычеслений и операций.
дальше долго)) я сам на уроке))
Количество пикселей 64*64 = 4096.
Если бы изображение было черно-белым, то есть 2 цвета в палитре, то на каждый пиксель нужно было бы 1 бит.
А на 4096 пикселей - 4096 бит = 512 байт.
А у нас вдвое меньше - 256 байт. Значит, нужно 0,5 бита на пиксель?
Но так не бывает, биты должны быть целым числом.
Вывод: ошибка в задании. Или я чего-то не понимаю?
Program Algorithm;
uses crt;
var result, a:real;
begin
for a:= 0 to 10.5 do
begin
result:=2*(Pow (a),5)*3*a*a-1/7*a+12;
a:=a+1.5;
writeline ("Your answer is ", result);
end;
end.
Как-то так, возможно не надо ставить begin/end в цикле for, потому что я уже не помню когда они нужны.
1 минута 6 секунд = 66 секунд
16 384 / 8 / 1024= 2 Килобайта/с
2*66= 132 Килобайта
Ответ. Объём файла 132 килобайта.