<span>объем адресуемой оперативной памяти</span>
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var y:=ReadReal('Введите неотрицательное число:');
var x:=Sqrt(y);
Writeln('Корень из этого числа: ',x)
end.
I-размер изображения
t-время
V-скорость
I = 800*600*16=7680000 пикселей
t=I/V
t = 7680000/28800=266,666=300=5 мин(около 5 минут)
Думаю, что так))
var a,b,c,d:integer;
begin
writeln('Напиши дату основания Санкт-Питербурга(день месяц и год)');
writeln('день');
read(a);
writeln('месяц');
read(b);
writeln('год');
read(c);
if (a=27) and (b=5) and (c=1703) then
writeln('Молодец всё правильно')
else
writeln('Ты где то допустил ошибку');
end.