Задание:
Программа для паскаля Составить и протестировать программу, вычисляющую а) большее, б) меньшее из трех чисел. Протестировать. Срочно код!
Решение:
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.
Знаете другой ответ?