Дано целое четырехзначное число N.Если первая цифра числа больше, чем последняя, то увеличить число в 2 раза иначе увеличить число в 10.
написать програму (паскаль)
Ответы на вопрос
Ответил Аноним
0
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.
Новые вопросы
Английский язык,
2 года назад
Английский язык,
2 года назад
Физика,
8 лет назад
Обществознание,
9 лет назад