1) var a, b, c: real; IDE: boolean; begin IDE: =false; writeln ('Введите 2 числа'); readln (a, b); c: =a; if (IDE=false) and (a < b) then begin a: =a+b; b: =c*b; IDE: =true; writeln ('a=', a, ', b=', b); end; if (IDE=false) and (b < a) then begin a: =a*b; b: =a+b; IDE: =true; writeln ('a=', a, ', b=', b); end; if (IDE=false) and (a=b) then begin writeln ('Числа равны'); IDE: =true; end; end.2) var a, b: real; begin writeln ('Введите 2 числа'); readln (a, b); if a < b then a: =0; writeln ('a=', a, ', b=', b); end.3) var k, b: real; begin writeln ('Введите цену журнала'); readln (k); writeln ('Введите, сколько у покупателя денег'); readln (b); if b > k then writeln ('Покупатель получит ', b — k, ' р сдачи'); if b=k then writeln ('Покупатель не получит сдачи'); if b < k then writeln ('Покупателю придется доплатить ', k — b, ' р'); end.4) var a: 100000… 999999; a1, a2, a3, a4, a5, a6:1… 9; begin writeln ('Введите шестизначное число'); readln (a); a1: =a div 100000; a2: =(a mod 100000) div 10000; a3: =(a mod 10000) div 1000; a4: =(a mod 1000) div 100; a5: =(a mod 100) div 10; a6: =a mod 10; if (a1+a2+a3)=(a4+a5+a6) then writeln ('Число является счастливым') else writeln ('Число не является счастливым'); end.5) var a, b: integer; begin writeln ('Введите числа A и B'); readln (a, b); if b mod a=0 then writeln ('Число ', a, ' является делителем числа ', b) else writeln ('Число ', a, ' не является делителем числа ', b); end. Если все правильно, отметь решение как лучшее) Если возникнут вопросы — задавай
