1. Составьте программу в Pascal ABC. Известно, что X кг конфет стоит A рублей. Определить, сколько стоит 1 кг и Y кг этих же конфет.

2. Составьте программу в Pascal ABC. Дано двузначное число. Найти сумму и произведение его цифр.

3. Составьте программу в Pascal ABC. Дано двузначное число. Вывести число, полученное при перестановке цифр.

1.

var a: real;

x, y: integer;

begin

readln (x, a, y);

writeln ('1 kg konfet stoit ', a/x:1:2);

writeln (y,' kg konfet stoyat ', a/x*y:1:2);

readln;

end.

2.

var a, s, p: integer;

begin

readln (a);

s:=a mod 10 + a div 10;

p: = (a mod 10) * (a div 10);

writeln (s);

writeln (p);

readln;

end.

3.

var a, b: integer;

begin

readln (a);

b: = (a mod 10) * 10 + (a div 10);

writeln (b);

readln;

end.

Это если без циклов.