Прошу подсказать в программе, у меня есть свой код, но он не правильный точно. Язык pascal
Программа вводит натуральные числа a и b и выводит на экран все натуральные числа на отрезке [a, b] делящиеся на каждую из своих цифр
var
a, b, k, t, m, i, p, d, j: integer;
begin
write ('Enter a and b: ') ;
readln (a, b) ; / / 10 20
t : = 0;
repeat
k : = a + 1;
j : = k;
t : = k;
while j 0 do
begin
p : = j mod 10;
d : = d + 1;
j : = j div 10;
/ / стало 0
end;
for i : = 1 to d do / / по количеству знаков делает
begin
if not (k / t mod 10 = 1 or 2 or 3 or 4 or 5 or 6 or 7 or 8 or 9)
then m : = m - 1;
t : = t div 10;
end;
if m > 0 then
writeln (k) ;
until a = b;
end.
Ответы (1)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Прошу подсказать в программе, у меня есть свой код, но он не правильный точно. Язык pascal Программа вводит натуральные числа a и b и ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Определить значение выражения: 1) 10 div 15 2) 10 div 2 3) 10 mod 2 4) 10 mod 17 5) 123 mod 10 6) 123 div 10 7) 1 div 2 8) 123 mod 1000 9) 100 mod 27 div 3 10) 100 div 5 mod 3 11) 98725 div 1000 mod 10 12) 100 mod 5 div 3
Ответы (1)
Объясните строчку (c:=10*c+a mod 10; a : = a div 10;) program pr36; function qwer (var a, b: integer) : integer; var c: integer; begin c:=0; while a > 0 do begin c:=10*c+a mod 10; a : = a div 10; end; qwer: = c; end; var a, b: integer;
Ответы (1)
Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f (x: integer) : integer; var m: integer; begin if x < 10 then f : = x else begin m : = f (x div 10) ; if m < x mod 10 then f : = x mod 10 else f : = m; end;
Ответы (1)
Тест: Операторы целочисленной арифметики div и mod 1. Вычислите: 25 div 11 2.27 3 2 2. Вычислите: 64 div 9 1 7 6 3. Вычислите: (35 div 2) div 5 2 17 3 4. Вычислите: (78 div 5) mod 10 5 15 10 5. Вычислите: (25 mod 11) + (18 mod 7) 3 7 4 6.
Ответы (1)
Uses crt; var n, s, s1, s2, k:integer; begin writeln ('Введите число: ') ; readln (n) ; s:=0; s1:=0; s2:=0; while n>0 do begin inc (k) ; if k mod 2 = 0 then begin s:=s+n mod 10; n:=n div 10; end else begin s1:=s1+n mod 10; n:=n div 10; end;
Ответы (1)
Помогите с ответом
на каждой из вещей - куртке; пальтои шубе-пришито 3; 4 6 пуговиц на пальто4 пуговицы на куртке пуговиц больше чем на пальто сколько пуговиц на куртке и сколько на шубе?
Нет ответа
Упростите выражения: 1) - 36+m+24 2) n+42-13 3) 5,7-7,7+a 4) - 0,44+x-0,22 5) 3/8-0,375+k 6) m+5/9-2/3
Нет ответа
решите уравнения: 8/9*3 целых 3/5 * (-2,1 х) = 20,16
Нет ответа
Ребят, как определять валентность?!
Нет ответа
количество энергетических уровней и внешних электронов в атоме углерода 1) 2,2 2) 2.4 3) 3.4 4) 3.6
Нет ответа