3)Павел
П-согласная
А-гласная
В-согласная
Е-гласная
Л-согласная
А)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)
б) нет
var i,j:integer;
begin
for i:=0 to 3 do
begin
for j:=i to 2 do write (' ');
write('/');
for j:=1 to i do write (' ');
write('\');
writeln;
end ;
for i:=0 to 3 do
begin
for j:=1 to i do write (' ');
write('\');
for j:=i to 2 do write (' ');
write('/');
writeln;
end ;
end.
Var a,c:integer;begin a:=1; c:=0;while a <> 1024 do beginif a <> 1024 then beginc:=c+1; a:=a*2;end;end;writeln(c); end.
<em><u>Программа на языке PascalABC.Net:</u></em>
var
sPred,sSucc,i,d:integer;
begin
sPred:=36;
for i:=2 to 127 do
begin
sSucc:=0;
while sPred>0 do begin
d:=sPred mod 10;
sSucc:=sSucc+d*sqr(d);
sPred:=sPred div 10
end;
sPred:=sSucc
end;
Writeln(sSucc)
end.
<em><u>Результат выполнения программы:</u></em>
153