Написати програму яка визначить добуток крайних цифр чотиризначного числа.

Question

Информатика

Беня

26 августа, 10:02

Написати програму яка визначить добуток крайних цифр чотиризначного числа.

+1

Ответы (1)

Знаете ответ на вопрос?

Арса · Answer 1

Var x1, x2, y, p:integer;

begin

write ('Введите четырехзначное число: ') ;

readln (y) ;

x1:=y div 1000;

x2:=y mod 10;

p:=x1*x2;

writeln ('Произведение крайних цифр: ', p)

end.