S=int(input())
m=0
while s!=0:
m+=s%10
s=s//10
print(m)
var i,j:integer;
a:array[1..6,1..10]of integer;
begin
for i:=1 to 6 do
for j:=1 to 10 do
a[i,j]:=(i-1)*10+j ;
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:4);
writeln
end;
end.
Листинги обеих программ и скриншот результатов их работы в приложениях.
1.
var n:integer;
begin
readln(n);
if n mod 2 = 0 then
writeln('Четное')
else
writeln('Ну четное');
<span>end.
2.
var n:integer;
begin
readln(n);
if n<>0 then
writeln('y=',1/n)
else
writeln('функция не определена');
<span>end.
</span>3.
var numb,ts,sot,des,ed:integer;
begin
readln(numb);
ts:=numb div 1000;
sot:= numb div 100;
sot:= sot mod 10;
des:=numb mod 100;
des:=des div 10;
ed:=numb mod 10;
if (ed*1000+des*100+sot*10+ts) = numb then
writeln('палиндром');
<span>end.
4.
var x:real;
begin
readln(x);
if x>=2 then
writeln(x)
else
writeln(sqr(x)-3);
<span>end.</span></span></span>
X+y умноженное на 3 например 6 библ для детей и 3 для взрослых 6+3 умножить на 3 ровно 27 библ в 1 районе и умножаешь на 3 итог 81 библ в городе