Напишите программу для вычисления степени k (целое) - вопрос №18318767 от DAYDEMON 06.01.2020 04:24

Question

Информатика: Напишите программу для вычисления степени k (целое) числа а (действительное). Для этого создайте функцию ​

DAYDEMON · Answer

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadArrReal('Введите 4 числа:',4);
if Frac(a.Sum/(a[3]-a[2]))=0 then Writeln('Целый результат')
else Writeln('Нецелый результат')
end.

Примеры
Введите 4 числа: 7.2 1.8 25.5 5.5
Целый результат

Введите 4 числа: 36 18.6 12 5
Нецелый результат

Объяснения:
Первый (после begin) оператор объявляет массив из четырех вещественных элементов и заполняет его вводимыми с клавиатуры данными.
Второй делает остальное: вычисляет результат, проверяет, целочисленный ли он и выводит соответствующее сообщение на монитор.

50 решите с объяснением проверьте является ли частное от деления суммы четырех произвольных чисел, в

50 решите с объяснением проверьте является ли частное от деления суммы четырех произвольных чисел, в

Напишите программу для вычисления степени k (целое) числа а (действительное). Для этого создайте функцию ​

Напишите программу для вычисления степени k (целое) числа а (действительное). Для этого создайте функцию