Ответы на вопрос:
Vara,b,c,n: integer; begin read(a,b,c); n: =(sqr(a)+sqr(b))*c; writeln(n); end. вот и все
Program n_1; const n = 3; var arr: array [1..n] of real; i: integer; begin for i : = 1 to n do begin write ('arr[',i,'] : = '); readln (arr[i]); end; for i : = 1 to n do begin if arr[i] > = 0 then arr[i] : = sqrt(arr[i]); writeln ('arr[',i,'] = ', arr[i]); end; end.
Популярно: Информатика
-
тэ10л14.04.2023 22:09
-
RokkuKun27.03.2021 09:50
-
dianasmertiyk11.05.2020 16:09
-
vasah28.04.2023 23:43
-
barmeb1106.04.2021 13:19
-
Taras22903.06.2023 00:35
-
Nemo22112.06.2023 00:13
-
ВАС1223712.03.2021 22:01
-
kristinalobanova623.03.2021 03:39
-
Vikeyt17.01.2023 13:48