Блок-схему не надо,только 1.дано двузначное число. найти сумму и произведение его цифр. 2.дано двузначное число. вывести число,полученное при перестановке цифр исходного числа. 3.дано трехзначное число. используя одну операцию деления нацело,вывести первую цифру данного числа(сотни). завтра нужно ,!
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.