Задать вопрос
14 ноября, 11:11

Дано натуральное число. Заменить все 7 в данном числе цифрами 8 (через mod) через паскаль!

+3
Ответы (1)
  1. 14 ноября, 12:31
    0
    Program z1; Var n, d, s, l: integer; Begin write ('Введите число = ') ; readln (n) ; l: = 1; s: = 0; while n > 0 do begin d:=n mod 10; if (d = 7) then d:=8; d: = d * l; s: = s + d; l: = l * 10; n: = n div 10; end; writeln (s) ; End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дано натуральное число. Заменить все 7 в данном числе цифрами 8 (через mod) через паскаль! ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы