Дано двузначное число. из цифр этого числа вывести все двузначные числа, которые можно составить из данного числа

Uses crt; // подключение модуля crt, чтобы результат был в новом окне var i,a,b: integer; // описание переменных begin       readln(i); // ввод двузначного числа       a: =i div 10; // первая цифра числа       b: =i mod 10; // вторая цифра числа       write(a,a,' ',a,b,' ',b,a,' ',b,b); // вывод искомых чисел на экран end.

Program gt; var n,i,a,b: integer; begin read(n); a: =n div 10; b: =n mod 10; for i: =0 to 9 dowriteln(a,i); if(a< > b)then begin for i: =0 to 9 do writeln(b,i); end; end.

1) тут в смысле надо тебе интеграл если да, то

       

program pr2; uses crt; procedure arifm(a,b: integer; var s: real); begin s: =(a+b)/2; end; procedure proiz(var a,b,c: integer); var i,m1,m2: integer; begin m1: =1; m2: =1; for i: =1 to a do m1: =m1*i; for i: =1 to b do m2: =m2*i; if m1> m2 then c: =m1 else c: =m2; end; var a,b,c: integer; s: real; beginclrscr; readln(a,b); arifm(a,b,s); writeln(s); proiz(a,b,c); writeln(c); end.

 

 

2)

program pr1; uses crt; procedure arifm(var a,b: integer; s: real); begin s: =(a+b)/2; writeln(s: 8: 3); end; var a,b: integer; s: real; beginclrscr; readln(a,b); arifm(a,b,s); end.

 

 

13

14

Объяснение:

Высказывание (Y>10) И (Y<15) И (Y≠12) истинно, когда истинны все его части

Y=13

Y>10     13>10     истина

Y<15     13<15     истина

Y≠12     13≠12     истина

Высказывание (Y>10) И (Y<15) И (Y≠12) истинно

Y=10

Y>10     10>10     ложь

Y<15     10<15     истина

Y≠12     10≠12     истина

Высказывание (Y>10) И (Y<15) И (Y≠12) ложно

Y=14

Y>10     14>10     истина

Y<15     14<15     истина

Y≠12     14≠12     истина

Высказывание (Y>10) И (Y<15) И (Y≠12) истинно

Y=12

Y>10     12>10     истина

Y<15     12<15     истина

Y≠12     12≠12     ложь

Высказывание (Y>10) И (Y<15) И (Y≠12) ложно