Фонетика - раздел науки о языке, который изучает звуки речи.
1.
var i,k:integer;
begin
for i:=150 to 225 do
if i mod 7=0 then k:=k+1;
write(k)
end.
2.
var a,s:integer;
begin
read(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
if s mod 10=0 then write('Правда') else write ('Неправда')
end.
Нужно составить вот такое дерево. Составляем его по следующему принципу; в Н можно попасть из С, D и G. В С можно попасть из А и D, и так далее.
Буква "а" точно в букве "о" ?
<em>VAR</em>
<em> a,b,c,d: LongInt;</em>
<em>BEGIN</em>
<em> Read(a,b,c,d);</em>
<em> </em>
<em> Write(a,'+',b,'+',c,'+',d,'=',a+b+c+d);</em>
<em>END.</em>