Ответы на вопрос:
var a: array[1..15]of integer;
i: integer;
begin
for i: =1 to 15 do if a[i]< 0 then write(i,' ');
end.
function f(x: real): real; beginf: =2*sin(x)*sin(x)+1; end;
var x: real;
beginreadln(x); writeln(f(x)); end.
Популярно: Информатика
-
EkaterinaZeyb12.06.2022 04:47
-
Ketti0814.12.2022 21:02
-
KotekaClient31.01.2020 09:04
-
Reolgjbjgjff23.04.2020 14:27
-
sanek1560425.05.2023 22:07
-
532настя4351023.03.2021 13:26
-
julliastripa24.07.2021 22:14
-
abdulismailova207.01.2021 09:04
-
Александр1234567891130.09.2022 23:44
-
Katukina22.10.2020 21:00