Программа для паскаля
Составить и протестировать
программу, вычисляющую а)большее, б)меньшее из трёх чисел. Протестировать. срочно код!

Var s,a: real;      n,i:integer;begin  s:=0;  readln(n);  for i:=1 to n do begin    a:=1/i;    s:=s+a;                         end;  writeln(s:0:5);end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.