Программа для паскаля Составить и протестировать программу…

Question

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

Answer 1

81

fynjy

06 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить