Var
s: integer;
mas: array[1..4]of integer;
begin
s := 0;
for var i := 1 to 4 do
begin
mas[i] := i;
s := s + mas[i];
end;
writeln(s);
end.
Ответ:10
Var summ:integer;
begin
var a := Arr(1,2,3,4,5,6,7,8,9);
for var i:=0 to 8 do begin
write('[',a[i],'] ');
end;
writeln('');
for var i:=0 to 8 do begin
if (i mod 2)=1 then begin
summ:=summ+a[i];
write('[',a[i],'] ');
end;
end;
writeln('summa = ',summ);
<span>end.</span>
Недостаток или малое количество памяти на системных дисках.
Var c,x,y: real;
begin
readln (x);
readln (y);
if x>y then
c=x*y
else
c=x+y;
print c
end.
Через 3 часа - 2 клетки.
Через 6 часов - 4 клетки.
Через 9 часов - 6 клеток.
Через 12 часов - 8 клеток.
Через 18 часов - 12 клеток.
Через 24 часа - 16 клеток.
Алгоритм: кол-во ЧАСОВ делим на 3 часа и умножаем на 2 клетки.
Например: 48:3=16 и 16×2=32; то есть через 48 часов будет 32 клетки.