Слева Справа
Вода Кислород
Минеральные вещества Зрелый лук
Углекислый газ
Солнце
1) 30*16=480 - это одна строка
2) 480*40= 19200 это одна страница
3) Переводишь биты в мегабайты 19200 бит это 0,0023 мбайт
4) Делишь 700 на 0,0023, Это где то 304347,8
1-д) var a,b:longint;
c:real;
c:=Sqrt(100)*a+16/5*b;
write (c);
end.
3-а) var b,c:longint;
c:=Sqrt(1)+2*1*b+Sqrt(b);
write (c);
end.
3-б) var a,c:longint;
c:=Abs (1+Sqrt(a));
write (c);
end.
6- c
8-c
9-b
10-a
В 10 не уверен.
Var
a, b, c: longint;
begin
readln(a, b);
c := a - b;
if (c > b) then
writeln('Валя собрала на ', c - b, ' кг клубники больше чем Вера.');
if (c < b) then
writeln('Вера собрала на ', b - c, ' кг клубники больше чем Валя.');
if (c = b) then
writeln('Девочки собрали одинаковое количество клубники.');
end.