** паскале нужно решить задачи 1.Задано трехзначное число. Составьте программу, с помощью...

Question

На паскале нужно решить задачи
1.Задано трехзначное число. Составьте программу, с помощью которой определите произведение кубов цифр этого числа.
2.Задано трехзначное число. Составьте программу, с помощью которой определите , равняются ли в нем крайние числа.

Answer 1

var
a,e,d,s,p: integer;
begin
p:=1;
writeln ('введи трехзначное число');
read (a);
e:= (a mod 10);
s:=(a div 100);
d:=s*100-e;
 p:=s*s*s*d*d*d*e*e*e;
 writeln ('произведение кубов цифр числа равно',p);
if e=s then writeln ('первая цифра числа равна последней')
  else
writeln ('первая цифра числа не равна последней');
end.