1 задача
Условие:
Дано трехзначное число. Найти сумму и произведение его цифр
2 задача
Условие:
Дано трёхзначное число.
В нем зачеркнули первую справа цифру и приписали её слева.
Вывести полученное число.
Program one;
uses crt;
var a, s, p: integer;
begin
writeln('Введите трёхзначное число');
Readln(a);
s:=(a mod 10)+((a div 10)mod 10)+(a div 100) ;
p:= (a mod 10)*((a div 10)mod 10)*(a div 100);
writeln ('Сумма цифр = ', s,'произведение =',p);
end.
Program two;
uses crt;
var a, b: integer;
begin
writeln('Введите трёхзначное число');
Readln(a);
b:= (a div 10)+ (a mod 10)*100;
writeln(b);
end.
Молись мне теперь. 
⇢