Не дайте умереть, решите такую , буду бесконечно : 3 : переменная x содержит трёхзначное число. поместите в переменную сумму цифр этого числа. результат выведите через функции цветом и координатами.
Pascal 1 var n, sum: integer; 2 begin 3 write ( 'введите число:' ); 4 readln (n); 5 sum:=0; 6 while n > 0 do begin 7 sum:= sum+ n mod 10; 8 n:= n div 10 9 end 10 writeln (' сумма цифр = ' , sum ) Удачи все что знаю
1 var n, sum: integer;
2 begin
3 write ( 'введите число:' );
4 readln (n);
5 sum:=0;
6 while n > 0 do begin
7 sum:= sum+ n mod 10;
8 n:= n div 10
9 end
10 writeln (' сумма цифр = ' , sum ) Удачи все что знаю