Вот пример: Program prim_4; Var a,b:real; Begin Write('введите число'); Readln(A); В:=A*А; {получаем А во 2} B:=В*В; {получаем А в 4} В:=A*B; {получаем А в 5} B:=В*В; {получаем А в 10} B:=В*В; {получаем А в 2...
Вот пример:
Program prim_4;
Var a,b:real;
Begin
Write('введите число');
Readln(A);
В:=A*А; {получаем А во 2}
B:=В*В; {получаем А в 4}
В:=A*B; {получаем А в 5}
B:=В*В; {получаем А в 10}
B:=В*В; {получаем А в 20}
Writeln('A в 20 степени=',В:0:2);
{Вместо указания ширины поля для вывода числа лучше ставить 0, тогда компилятор отведет столько позиций под целую часть, сколько получилось в ответе, а для дробной части я посчитала возможным оставить 2 позиции}
Readln
End.
В фигурные скобки {...} в программе можно заключать комментарий, компилятор пропускает текст, заключенный в такие скобки, а комментарий позволяет вспомнить о чем программа если вы позднее возвращаетесь к ее тексту.
Задание
1.Дано вещественное число А. Не пользуясь никакими арифметическими операциями, кроме умножения, получить:
А^9 за четыре операции;
Гость
Ответ(ы) на вопрос:
ГостьProgram prim_4;
Var a,b:real;
Begin
Write('введите число');
Readln(a);
b:=a*a; {получаем А во 2}
b:=b*b; {получаем А в 4}
b:=b*b; {получаем А в 8}
b:=a*b; {получаем А в 9}
Writeln('A в 9 степени=',b:0:2);
End.
Не нашли ответ?
Похожие вопросы