Var a,s:integer;
begin
readln(a);
s:=0;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln('s = ',s);
end.
Пример:
13854
<span>s = 21</span>
1.Uses crt;
Var
a:array[10..20] of integer;
i:Integer;
begin
clrscr;
for i:=10 to 20 do
a[i]:=i;
for i:=10 to 20 do
writeln (a[i],',');
End.
2. Var
b:array[2..8] of real;
Соединим заданные точки и получим отрезок, длина которого равна радиусу окружности. Длина этого отрезка вычисляется по известному выражению r² = (x₂-x₁)²+(y₂-y₁)²
Затем находим площадь круга S=πr² и длину окружности C=2πr
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x1,y1):=ReadReal2('Координаты центра x1 и y1:');
var (x2,y2):=ReadReal2('Координаты точки на окружности x2 и y2:');
var r:=Sqrt(Sqr(x2-x1)+Sqr(y2-y1));
var (S,C):=(Pi*r*r,2*Pi*r);
Writeln('S=',S,', C=',C)
end.
<u>Пример</u>
Координаты центра x1 и y1: 3 3.5
Координаты точки на окружности x2 и y2: 1.7 -2.8
S=129.999104005546, C=40.4180271718983
2) х/11=22/1
х=22*11=242
х/10=21/1
х=21*10=210
242-210=32
3)из 12 в 8, потом из 8 в 5 , потом из 5 выливаем обратно в 12, затем из 8 выливаем 3 оставшихся пинта от предыдущего перелива в 5, снова набираем 8 и доливаем из него в 5
и в итоге в 8 останется 6 пинт
4)