Решите на паскале. дано пятизначное число, если - вопрос №1215716 от Adn2001 27.01.2023 11:04

Question

Информатика: Решите на паскале. дано пятизначное число, если первая цифра больше последней то найти произведение 2-й и 4-й цифр, иначе поменять местами 3-ю и 5-ю цифры местами.

Adn2001 · Answer

var   a:integer;begin   readln(a);   if ((a div 10000) (a mod 10)) then      writeln(((a div 1000) mod 10) * ((a mod 100) div 10))  else writeln(((a div 100) mod 10) * (a mod 10));end....