Информатика, опубликовано 2018-08-22 23:16:58 by Гость
Программа для паскаля Составить и протестировать программу, вычисляющую а)большее, б)меньшее из трёх чисел. Протестировать. срочно код!
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на