Предмет: Информатика,
автор: hhsolo
Здравствуйте, не дайте умереть, решите пожалуйста такую задачу, буду бесконечно благодарен :3 :
Переменная X содержит трёхзначное число. Поместите в переменную сумму цифр этого числа. Результат выведите через функции управления цветом и координатами.
Ответы
Автор ответа:
1
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 ) Удачи все что знаю
Интересные вопросы
Предмет: Математика,
автор: cona53
Предмет: География,
автор: NewYorc
Предмет: Русский язык,
автор: aizereanime
Предмет: Математика,
автор: PiKOlalala