Adorus
4 год назад
Дано целое четырехзначное число N.Если первая цифра числа больше, чем последняя, то увеличить число в 2 раза иначе увеличить число в 10.написать програму (паскаль)
ОТВЕТЫ
Nedyalko
Oct 24, 2020
Var A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
if A div 1000 > A mod 10 then A:=A*2
else A:=A*10;
WriteLn(A)
End.
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
if A div 1000 > A mod 10 then A:=A*2
else A:=A*10;
WriteLn(A)
End.
734
Смежные вопросы:
