Вроде как вот так: Program aasfa; var n,i: integer; k,z: real; begin Writeln('Введите N:'); readln(N); Writeln('Введите K:'); readln(K); z:=13; For i:=2 to N do z:=K/i+z; Writeln(z); end.
№ 1 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) неверно, что 0 < X ≤ 3 и Y>5; 2) X является max(X,Y); 3) X не является min(X,Y); 4) Z является min(X,Y,Z). № 2 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) Y не является max(X,Y,Z) и не является min(X,Y,Z); 2) X,Y,Z равны между собой; 3) каждое из чисел X,Y,Z положительно; 4) каждое из чисел X,Y,Z отрицательно.
Program aasfa;
var n,i: integer;
k,z: real;
begin
Writeln('Введите N:');
readln(N);
Writeln('Введите K:');
readln(K);
z:=13;
For i:=2 to N do
z:=K/i+z;
Writeln(z);
end.