Var
i,s:integer;
a:array [1..12] of integer;
begin
randomize;
s:=0;
for i:=1 to 12 do
begin
a[i]:=Random(35)+10;
writeln(a[i]);
if a[i] mod 3=0
then s:=s+a[i];
end;
writeln(s);
end.
V = 256 000 бит/с
t = 64 с
I =256 000 * 64 = 16384000 бит = 2000 Кбайт
Ответ: 2000 Кбайт
Var j, min: integer;
a: array [1..30] of integer;
begin
min:= 1001;
for j:=1 to 30 do
if (a[j]mod 10=3) and (a[j]min:= a[j]);
if min:= 1001
then writeln('Не найдено')
else writeln(min);
end.
1. Моем котел и топор.
2. Кладем топор в котел.
3. Наливаем воду в котел.
4. Ставим котел на огонь.
5. Помешиваем варево.
6. Пробуем.
7. Солим воду.
8. Пробуем.
9. Кладем крупу.
10.Пробуем.
11.Кладем масло.
12.Пробуем.
13.Едим.