Может все основные точно не знаю
G$5*$A12 , знак $ необходим для закрепления ячейки в формуле , в
<span>D$5 закрепляется строка , а столбец , при переносе формулы изменяется
ну и аналогично с </span><span>$A10.</span><span><span>Столбец</span> закрепляется , а строка изменяется . </span>
16 бит = 2 байта
8*40*32*2 = 20480 байта занимает текст
16*3200 = 51200 байт
51200 + 20480 = 71680 байт
71680 / 1024 = 70 Кбайт
Ответ: 3
Ты забыл поставить ; после первого else смотри пример в учебнике.
у нас получается следующее:
if x>y then
if x=y then write ('x=y')
else write ('max=',x);
else write ('max=',y);
end.
чтобы тебе было проще, выстраивай иерархию вложенности, т.е если у тебя есть вложенное условие, цикл и другие структуры, выделяй их пробелами как на рисунке в учебнике
Var A,B:real;
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.