Ответы на вопрос:
Var i,n: integer; y: real; begin write('введите n='); read(n); y: =0; for i: =1 to n do y: =y+1/i; write('сумма=',y); end.
vara,b: integer; beginwrite('введите первое число: '); readln(a); write('введите второе число: '); readln(b); if a> b then writeln('меньшее число: ',b) else writeln('меньшее число: ',a)end.
Популярно: Информатика
-
Riddlemethis15.11.2022 11:46
-
Foxer3006.06.2023 06:57
-
kozackilya122.04.2021 11:15
-
Людина508.05.2021 06:49
-
ала21302.02.2023 19:01
-
Nastykaramova10.09.2021 07:35
-
andrey100573p018xj10.12.2022 14:57
-
smagzamova200614.03.2021 03:33
-
ванька6801.07.2022 09:52
-
ksunavolik08.03.2023 02:29