Напишите программу, которая вводит натуральное число N и выводит на экран N псевдослучайных чисел. Запустите её несколько раз, объясните результаты опыта. — Правильный ответ на вопрос найдете ниже
05.11.2019 · 2
Ответ: var n, i: integer;begin//включаем рандомrandomize;//Вводим Nreadln(n);//генерируем N случайных чисел до 100. for i:=1 to n do begin n:=random(100);//Выводим эти числа write (n, ‘ ‘); end; writeln;end.
Напишите программу, которая вводит натуральные числа а и b и выводит на экран все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр.
Входные данные
Входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b .
Выходные данные
Программа должна вывести в одну строчку все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр. Числа разделяются пробелами.
Примеры
Входные данные
10 20
Выходные данные
11 12 15
На паскале — Правильный ответ на вопрос найдете ниже
25.10.2019 · 1
Ответ: var a, b, i, t:integer; c:boolean;begin read (a, b); for i := a to b do begin t := i; c := true; repeat if (t mod 10 = 0) or (i mod (t mod 10) <> 0) then c := false; t := t div 10; until t > 0; if c = true then write (i, ‘ ‘) end;end.