Решите на паскале. дано пятизначное число, если первая - вопрос №1215941 от kirillm3 20.01.2020 07:16

Question

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

kirillm3 · 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....