Дано целое четырехзначное число если первая цифра большечем последняя то увеличте в 2 раза иначе в 10 раз . написать программу в паскаль
Дано целое четырехзначное число если первая цифра большечем последняя то увеличте в 2 раза иначе в 10 раз . написать программу в паскаль
Гость
Ответ(ы) на вопрос:
ГостьVar a : integer;
Begin
Readln(A);
If (A div 10000 > (A mod 10) then A:=A*2 else A:=A*10;
Writeln(A);
end.
Не нашли ответ?
Похожие вопросы