Дано шестизначное число. найти сумму его цифр. величины для хранения всех шести цифр числа не использовать. сделать программу в паскале

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.

Пример:
123456
s = 21

Ей, жарық күн, нұрыңды шаш далама,

шаш нұрыңды қарттарға, жас балаға,

ызғар сіңген жеріме шуақ керек,

мұқтаж оған ауыл да, астана да.

Сәулеңменен себеле үміт демін,

жер бетінен жылыссын күдіктерім.

Адамдардың сатқындық, сұмдығынан

қалжыраған жерімді жібіт менің.

Күңгірттенбей, көтерсін шыңым басын,

қарттарымның ұзартқын ғұмыр жасын.

Қорқыныш пен үрей жер кеуделерде,

қу бәрін де — соңына бұрылмасын!

Кетсін тағы шарықтап алысқа үнім,

қонақтасын ырыс пен табыс күнім.

Ұл-қыздары көтерсін қол ұстасып

қазағымның елдік пен намыс туын.

Жарқырасын шуақ боп алғашқы үміт,

жүректерді жүрекпен жалғастырып.

Адамзатқа бірлік бер, тыныштық бер –

ынтымақтан туындар бар жақсылық!

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Program Geograf1;

Uses crt, GraphABC;

var karta,R,A: ineger;

Begin

SetWindowSize (520,480);

karta:=LoadPicture('belarus.gif');

DrawPicture (karta,10,10);

SetBrushColor (clRed);

A:=1700; R:=round (sgrt (A/pi));

circle (250,225,R);

A:=500; R:=round (sgrt (A/pi));

circle (405,345,R);

A:=330; R:=round (sgrt (A/pi));

circle (375,215,R);

A:=340; R:=round (sgrt (A/pi));

circle (360,105,R);

A:=320; R:=round (sgrt (A/pi));

circle (55,235,R);

A:=300; R:=round (sgrt (A/pi));

circle (40,385,R);

End.

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

Program Geograf2;

Uses crt, GraphABC;

Const A:= array[1..5] of integer =(690,613,495,493,459);

B:= array[1..5] of string =('Днепр', 'Березина', 'Припять', 'Сож', 'Неман ');

var karta,  i : ineger;

begin

SetWindowSize (600,520);

karta:=LoadPicture('belfiz.gif');

DrawPicture (karta,30,120);

SetBrushColor (clBlue);

SetPenWidth(5);

Writeln ('Длина реки на территории Беларуси, тыс.км ');

for i:=1to 5 do begin

Writeln ( B [i], ' ', A[ i ]);

Line(160, 10+20*i, 160+ round(0.5*A[ i ]), 10+20*i);

End;

End.

Задачи:

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Program upr_a;

Uses crt, GraphABC;

Const A:= array[1..4] of real =(87.5, 71.5,82.4, 94);

B:= array[1..4] of string =('Беловежская пуща', 'Браславские озера', 'Припятский', 'Нарочанский');

var karta,i,R: integer;

begin

SetWindowSize (520,480);

writeln ('Площадь парков Беларуси:');

karta:=LoadPicture('d:/uprajneniya/karta.gif');

DrawPicture (karta,10,50);

SetBrushColor (clRed);

for i:=1to 4 do

writeln (B[i], ' ' , A[i], 'тыс.га');

R:=round (sgrt (A[1]/pi));

circle (50,400,R);

R:=round (sgrt (A[2]/pi));

circle (250,100,R);

R:=round (sgrt (A[3]/pi));

circle (300,400,R);

R:=round (sgrt (A[4]/pi));

circle (200,200,R);

End.

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

Program upr_b ;

Uses crt, GraphABC;

Const A:= array[1..8] of real =(79.6, 52.8,40.3,37.7,36.1, 26.0, 24.6,22.3);

B:= array[1..8] of real =(24.8, 7.5, 2.9, 11.5, 12.0, 2.3, 8.1, 8.7);

C:= array[1..8] of string =(' Нарочь', 'Освея', 'Черврное', 'Лукомльское', 'Выгонщанское', 'Нещердо', 'Свирь');

var karta,i,S: integer;

begin

SetWindowSize (640,480);

writeln ('Площадь и глубина озер Беларуси:');

karta:=LoadPicture('d:/uprajneniya/karta.gif');

DrawPicture (karta,340,0,250,200);

Writeln ( 'Озеро' :15, 'Площадь':13, 'Глубина':9);

for i:=1to 8 do

writeln (i , C[i]:15, ' ' , A[i]:7:2, ' км.кв', B [ i ]:7:2, 'м');

writeln; writeln;

Объяснение: