Var S,n,A:integer;
Begin
Write('n = ');ReadLn(n);
For n:= 10 to n+9 do
Begin
A:=n;
S:=0;
While A > 0 do
Begin
S:=S+A mod 10;
A:= A div 10
End;
WriteLn('Сумма цифр ',n,' равна: ',S)
End;
End.
А)
;
;
;
б)
;
;
;
в)
;
;
;
г)
;
;
;
д)
;
;
;
– продолжение деления в столбик на рисунке ;
;
;
;
Var a,b,c,S,p:real;
begin
readln(a,b,c);
if (a<b) and (b<c) then writeln(a,b,c);
p:=0;
p:=a+b+c/2;
S:=0;
S:=sqrt(p*(p+a)*(p+b)*(p+c));
writeln(S:5:3);
end.
Var godA, godO, godL,ctar:integer;
begin
wrietln("A");readln(godA);
wrietln("O"); readln(godO);
wrietln("L"); readln(godL);
if (godA<godO) then ctar =<span>godO else ctar = godA;
</span>if (ctar<godL) then write("Сред:",ctar," Стар:",godL ) else
if(godA<godL) then write("Сред:",godL," Стар:",ctar) else
write("Сред:",<span>godA</span>," Стар:",ctar);
end;
Решения в приложениях. Если будут вопросы - задавайте.