Дано целое четырехзначное число если первая цифра - вопрос №24601670 от RABOTAY 19.09.2022 09:46

Question

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

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