Program qq;
var x,y,z:real;
begin
write('Введите х >>>');
readln(x);
write('Введите y >>>');
readln(y);
if x<0 then if x>y then z:=x else z:=y else if x<y then z:=x else z:=y;
write(z);
<span>end.
Спасибо маме)))
</span>
Сделай её в программе, в которой вам сказал учитель, нажми в меню программы файл, потом нажми сохранить как и выбери место (флешку), где нужно сохранить файл
Var i:integer;
begin
for i:=1 to 5 do writeln('Привет');
end.
выведет 'Привет' 5 раз
Если переменная создана уже в варе, то она будет равна 0, а если вообще не создана , то вообще будет ошибка компиляции
Ответ:
60
Объяснение:
1)l=vt(где i-размер,v-скорость,t-время)
пропорция:
(160*1024*8) x
------------------ = ---------- ==>(мы все переводим в бит,x-то,что находим)
2048 768
**************************************************************************************************
(160*8) x
---------- = ------------ (1024 сократили с 2048,поэтому внизу 2)
2 768
**************************************************************************************************
160*4 x
--------- = ------------ (2 сократили с 8)
1 768
***********************************************************************************************
2)x=160*4*768 бит
3)160*4*768 160*1*768 80*1*768
---------------- = ---------------- = ------------------ =60 кбайт
8*1024 2*1024 1024
(цифра 8-перевод из бит в байты,1024 из байтов в килобайты)
*************************************************************************************************
