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

Question

Информатика

Варюня

14 августа, 16:24

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

+4

Ответы (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.