Дано целое четырехзначное число если первая цифра - вопрос №4601445 от tat321 11.04.2021 10:16

Question

Информатика: Дано целое четырехзначное число если первая цифра большечем последняя то увеличте в 2 раза иначе в 10 раз . написать программу в паскаль

tat321 · Answer

Var a : integer;Begin  Readln(A);  If (A div 10000 (A mod 10) then A:=A*2 else A:=A*10;  Writeln(A);end....