На паскале abc напишите программу, которая запрашивает у пользователя два числа и выводит квадрат суммы и сумму квадратов этих чисел.
210
497
Ответы на вопрос:
Как в : var a,an,s: real; n,i: integer; begin write('a = '); readln(a); write('n = '); readln(n); s: =1/a; an: =1; for i: =2 to n do begin an: =an*a*a; s: =s+1/an; end; writeln('s = ',s); end. пример: a = 2 n = 4 s = 0.828125
Популярно: Информатика
-
hopas126.12.2020 08:16
-
lenadub21.10.2020 17:30
-
ШкОлА133722803.02.2021 04:33
-
IAlisaI01.04.2020 22:22
-
медведьш1223321303.02.2022 16:53
-
mixa7132ozoc5l21.08.2022 02:02
-
Владэлина24.04.2020 07:59
-
ladiaginairina30.09.2021 05:45
-
dashavr128.01.2022 11:09
-
тося4215.01.2020 05:24