Предмет: Информатика,
автор: itsizdin
написати програму яка визначить добуток крайних цифр чотиризначного числа.
Ответы
Автор ответа:
0
var x1,x2,y,p:integer;
begin
write('Введите четырехзначное число: ');
readln(y);
x1:=y div 1000;
x2:=y mod 10;
p:=x1*x2;
writeln('Произведение крайних цифр: ',p)
end.
begin
write('Введите четырехзначное число: ');
readln(y);
x1:=y div 1000;
x2:=y mod 10;
p:=x1*x2;
writeln('Произведение крайних цифр: ',p)
end.
Похожие вопросы
Предмет: Музыка,
автор: vikakrupina0
Предмет: Другие предметы,
автор: kambarsanjar007
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: macinkaa
Предмет: Алгебра,
автор: olenko16