ПОМОГИТЕ!!!! блок-схему не надо,только программку!!1.дано двузначное число. найти сумму и...

Question

ПОМОГИТЕ!!!! блок-схему не надо,только программку!!
1.дано двузначное число. найти сумму и произведение его ЦИФР.
2.дано двузначное число. вывести число,полученное при перестановке цифр исходного числа.
3.дано трехзначное число. используя одну операцию деления нацело,вывести первую цифру данного числа(СОТНИ).
Завтра нужно сдать!!!! ПОЖАЛУЙСТА,плиииизззз!!!

Answer 1

Это в паскале?
1. Var a,x,y,s,p:integer;
begin
writeln ('введи двузначное число');
readln (a);
x:=a div 10 mod 10;
y:=a mod 10;
p:=x*y;
s:=x+y;
writeln (сумма цифр равна'',s);
writeln (произведение цифр равна'',p);
end.

2.Var a,x,y:integer;
begin
writeln ('введи двузначное число');
readln (a);
x:=a div 10 mod 10;
y:=a mod 10;
a:=y*10+x;
writeln (a);
end.

3.Var a,x:integer;
begin
writeln ('введи трехзначное число');
readln (a);
x:=a div 100;
writeln (x);
end.