Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
27 апреля 2023 08:26
206
На языке Паскаля написать программу: Дано число. Определить, на какую цифру оно оканчивается, затем умножить его само на себя столько раз, на какую цифру оканчивается исходное число. Решить используя циклы.
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
Остались вопросы?
Еще вопросы по категории Математика
8. На рисунке изображена развёртка поверхности тела, сложенного из шести попарно равных прямоугольников, размеры которых указаны. Вычислите объём данн...
Какие реагенты необходимы для получения пропанола из 1 хлорпропана?...
100^x-11*10^x+10=0 решение...
В трапеции ABCD известно, что AD=3, BC=1, а её площадь равна 48. найдите площадь треугольника ABC...
Ответь на вопросы. Выполни задания. Между какими двумя кругами спрятался треугольник? Измерь их радиусы и начерти в тетради....
Все предметы