24 бита ×<span> 800 </span>×<span> 600 = 11 520 000 бит = 1 440 000 байт</span>
Var a,y:real;
begin
readln(a);
if (a<=0)then y:=a+5 else
if (a>0) and (a<1)then y:=1/a else y:=sqr(a);
print(y);
end.
<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=MatrRandom(7,7,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Сумма по первой строке: ',a.Row(0).Sum)
end.
1) https://ru.wikibooks.org/wiki/%D0%92%D0%B8%D0%B4%D1%8B_%D0%B8%D0%BD%D1%84%D0%BE%D1%80%D0%BC%D0%B0%D1.....
2) http://www.yaklass.ru/p/bosova-l-l-informatika-dlya-5-9-klassov/5-klass/informatciia-vokrug-nas-1206....
3) http://msk.edu.ua/ivk/Informatika/Uch_posobiya/Informaciya/Inf_i_Inf_processi/vidi_inf.htm
Посмотрите, полезные сайты по теме "Виды информации".
1) 64:8=8 --всего рейсов с коробкоми с бананами