А)1. наливаем 8л (0_8)
2. выливаем 8л в 3л (3_5)
3. выливаем из 3л (0_5)
4. выливаем из 8л (3_2)
5. выливаем из 3л (0_2)
6. выливаем из 8л в 3л (2_0)
7. наливаем в 8л (2_8)
8. выливаем из 8л в 3л (3_7)
б) нет
Ну 20 строк и 5 столбцов но я не уверен на 100%
Изменил... теперь нормально все.
uses graphabc,crt;
var i:integer; h:real;
begin
randomize;
rectangle(280,130,320,320);
rectangle(250,10,350,260);
circle(300,55,35);
circle(300,135,35);
circle(300,215,35);
for i:=1 to 1000 do
begin
floodfill(300,55,clred);
delay(3000);
floodfill(300,55,clwhite);
delay(1000);
floodfill(300,135,clyellow);
delay(3000);
floodfill(300,135,clwhite);
delay(1000);
floodfill(300,215,clgreen);
delay(1000);
floodfill(300,215,clwhite);
delay(1000);
end;
end.
Program fantscrin;
const n = 100;
Var a: array [1..n] of integer;
i,j,k,s:integer;
Begin
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] = 0) then break;
k:=k+1;
end;
for i:=1 to k do
write(a[i], ' ');
for i:=1 to k do
if ((a[i] mod 10 = 3)and(a[i] mod 7 = 0)) then s:=s+a[i];
writeln('');
writeln(s);
End.
19 минут = 1140 секунд
примерно 68 Кбайт/секунду