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

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

Задать свой вопрос
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 ('1-ая цифра числа не одинакова заключительной');
end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт