Совсем этого не понимаю. нужно в программе кумир. : дано четырёхзначное число,найти сумму чисел этого числа.

IÎrîskåI IÎrîskåI    1   18.05.2019 18:40    5

Ответы
seliza415 seliza415  12.06.2020 00:20
Begin
X, y, a, b:integer;
Begin
Write(x,y,a,b)
I:=x+y+a+b
Read
End
ПОКАЗАТЬ ОТВЕТЫ
alenamarishchu alenamarishchu  12.06.2020 00:20

А я сделала!

 

 

Var c,c1,c2,c3,c4 : integer;

Begin 

read(c);

c1:=(c div 1000);   {нашли первую цыфру}

c4:=(c mod 10);   {нашли вторую цыфру}

c3:=(c mod 100) div 10; {третья цыфра}

c2:=(((c mod 1000)div 100)mod 10); {ну и вторая цыфра}

write(c1,c2,c3,c4);

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика