Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
27 апреля 2023 08:26
312
На языке Паскаля написать программу: Дано число. Определить, на какую цифру оно оканчивается, затем умножить его само на себя столько раз, на какую цифру оканчивается исходное число. Решить используя циклы.
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.
```
Программа сначала запрашивает у пользователя число, затем определяет на какую цифру оно оканчивается. Далее запускается цикл, который умножает число само на себя столько раз, на сколько оканчивается исходное число. Результат выводится на экран вместе с информацией о последней цифре исходного числа.
```
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
Остались вопросы?
Еще вопросы по категории Математика
Чему равно число 10 в 11 степени?...
Реши уравнение в онлайн мектеп на фото показано всё...
Какое число равно 1 в минус 2 степени?...
Из листа картона можно вырезать 6 одинаковых квадратов. Сколько листов картона надо для того, чтобы вырезать 50 таких квадратов....
Что такое результат выражения '1 7 log1 7 2'?...