Var x1,x2,y,p:integer; begin write('Введите четырехзначное число: '); readln(y); x1:=y div 1000; x2:=y mod 10; p:=x1*x2; writeln('Произведение крайних цифр: ',p) end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
