Алгоритм 1) a x a = a² ⇒ b; b x a = a³ ⇒ результат 2) a x a = a² ⇒ b; b x b = a⁴ ⇒ c; c x c = a⁸ ⇒ c; c x b = a¹⁰ ⇒ результат
Программа на языке PascalABC.Net var a,b,c,y:real; begin Write('Введите число: '); Read(a); b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y); c:=b*b; c:=c*c; y:=b*c; Writeln('Десятая степень числа равна ',y) end.
Тестовые решения: Введите число: 2 Третья степень числа равна 8 Десятая степень числа равна 1024
Введите число: -13.594 Третья степень числа равна -2512.128188584 Десятая степень числа равна 215512594781.574
1) a x a = a² ⇒ b; b x a = a³ ⇒ результат
2) a x a = a² ⇒ b; b x b = a⁴ ⇒ c; c x c = a⁸ ⇒ c; c x b = a¹⁰ ⇒ результат
Программа на языке PascalABC.Net
var
a,b,c,y:real;
begin
Write('Введите число: '); Read(a);
b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y);
c:=b*b; c:=c*c; y:=b*c;
Writeln('Десятая степень числа равна ',y)
end.
Тестовые решения:
Введите число: 2
Третья степень числа равна 8
Десятая степень числа равна 1024
Введите число: -13.594
Третья степень числа равна -2512.128188584
Десятая степень числа равна 215512594781.574
Объяснение:
1) четным. Функция a mod 2 возвращает остаток от деления числа а на 2.
Если остаток равен 0, то число а четное.
2) 20.
a = 100; b = 30; a = 100 - 3*30 = 10
c = b - a = 30 - 10 = 20
3) if переводится как если, и не только в условном операторе, а вообще по-английски.
4) (x=3) or (x=4).
Вообще-то любое из этих выражений может быть использовано, как условие.
Если нет проверки на равенство числу, то подразумевается проверка на равенство нулю.
Но, скорее всего, имеется ввиду именно это выражение.
5) if a<b then min := a; else min := b;
Ошибка: после min := a точка с запятой не нужна.
6) Условие: a < 17
7) Нет верного ответа, потому что не бывает треугольника с тремя прямыми углами.
8) Не могу ответить, потому что нет фрагмента программы.