===== PascalABC.NET =====
begin
var a := ReadArrInteger('Введите пять целых чисел:', 5);
Println('Их сумма равна', a.Sum)
end.
<span>ск-ть 160 сим/мин</span>
<span>время 30 мин</span>
<span>всего 160*30=4800сим</span>
<span>3-х дюймовая дискета эт я так понимаю 3,5", тогда примерно 1,4 мегабайта... половина - это примерно 0,7 Мб или 716,8 Кб (1024*0,7) или 734003,2 байт (716,8*1024). округлим, получим 734003 байта. Если считать, что стандартный символ - это 1 байт, то имеем 734003 символа. Тогда 734003/160=4587,51875 мин. ~ 4588 мин.</span>
1) 0; 3; 5.
2) 0; 9; 25.
3) 0; 12; 30.
4) 0; 15; 35.
5) на ноль делить нельзя; 5; 7.
6) от ноля нельзя отнимать; 2; 2.
Источник иформации в данном случае это поле богатое нектаром, приёмник - пчела, канал связи зрительный, типа пчёлы видят её знаки и движения.
но вообще тут можно по разному рассматривать
uses graphABC;
var
x1, y1, x2, y2: integer;
begin
x1 := 1;
y1 := 1;
x2 := 800;
y2 := 20;
Window.SetSize(800, 600);
for var i := 1 to 30 do
begin
SetBrushColor(clRandom);
FillRect(x1, y1, x2, y2);
y1 := y1 + 20;
y2 := y2 + 20;
end;
end.