Представить программу. Задача 1. Вывести на экран все двузначные числа, которые нацело делятся на число, введённое пользователем. Задача 2. Даны трёхзначные натуральные числа n и k (n меньше k). Из чисел от n до k найти все, ...
Представить программу. Задача 1. Вывести на экран все двузначные числа, которые нацело делятся на число, введённое пользователем. Задача 2. Даны трёхзначные натуральные числа n и k (n < k). Из чисел от n до k найти все, запись которых содержит ровно две одинаковые цифры. Например, числа 266, 661, 767, 776 – содержат ровно 2 одинаковые цифры. Задача 3. Дано два целых положительных числа a и n, вводимых с клавиатуры (выполнить проверку на выполнения данного условия). Найти an и na.
Гость
Ответ(ы) на вопрос:
Гость1) var a:array [1..100] of integer; n,i:integer; begin for i:=10 to 99 do begin a[i]:=i; if (a[i] mod n=0) then writeln(a[i]); end; end. 2) var a:array [1..100] of integer; n,k,i,x,y,z: integer; begin readln(n,k); for i:=n to k do begin a[i]:=i; x:=a[i] mod 10; y:=a[i] div 10; z:=y mod 10; y:=y div 10; if (x=y) or (x=z) or (y=z) then writeln(a[i]); end; end. 3) var a,n,an,na: integer; begin readln(a,n); if (a>0) and (b>0) then begin an:=a*10+n; na:=n*10+a else writeln('Введены неверные числа!'); end; end.
Не нашли ответ?
Похожие вопросы