Задание:
Представить программу. Задача 1. Вывести на экран все двузначные числа, которые нацело делятся на число, введенноепользователем.
Решение:
1) var a: array [1… 100] of integer; n,i: integer; beginfor i: =10 to 99 do begina[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; beginreadln (n,k); for i: =n to k do begina[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; beginreadln (a,n); if (a>0) and (b>0) then beginan: =a*10+n; na: =n*10+a else writeln ('Введены неверные числа! '); end; end.
Знаете другой ответ?