Составьте программу вычисления первой цифры 3-ех значного числа . Если цифра

Составьте программу вычисления первой числа 3-ех значного числа . Если цифра больше 5 , то умножтье числа на 1 цифру

Задать свой вопрос
1 ответ

var

 num, firstDidit: integer;

begin

 read(num);

 firstDidit := num mod 1000 div 100;

 if (firstDidit gt; 5) then  

 begin

   firstDidit := firstDidit * firstDidit;

   num := num * firstDidit;

 end;

 write(num, ' ', firstDidit);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт