Лучшие помощники
27 апреля 2023 08:26
192

На языке Паскаля написать программу: Дано число. Определить, на какую цифру оно оканчивается, затем умножить его само на себя столько раз, на какую цифру оканчивается исходное число. Решить используя циклы.

1 ответ
Посмотреть ответы
Вот решение задачи на языке Паскаль:

```
program ending_digit;
var
num, ending_digit, result: integer;
i: integer;
begin
write('Введите число: ');
readln(num);

ending_digit := num mod 10; // определяем последнюю цифру числа

result := num;
for i := 1 to ending_digit do
begin
result := result * num; // умножаем число само на себя ending_digit раз
end;

writeln('Число ', num, ' оканчивается на цифру ', ending_digit);
writeln('Результат: ', result);
end.
```

Программа сначала запрашивает у пользователя число, затем определяет на какую цифру оно оканчивается. Далее запускается цикл, который умножает число само на себя столько раз, на сколько оканчивается исходное число. Результат выводится на экран вместе с информацией о последней цифре исходного числа.
0
·
Хороший ответ
27 апреля 2023 08:27
Остались вопросы?
Найти нужный