Исправить ошибки в коде

@Alex-6 · Регистрация: 14.10.2013

Author24 — интернет-сервис помощи студентам

Pascal

program cymma;
var n :integer;
begin
Sum:=0;
N:=0;
while Sum<=5 do
  begin
    Inc(N);
    Sum:=Sum+1/N
  end;
writeln(N);
end.

@fcdk_pavel · 29.10.2013, 18:13

N=0 деление на 0

@Puporev · 29.10.2013, 18:15

Pascal

program cymma;
var n :integer;
    Sum:real;
begin
Sum:=0;
N:=0;
while Sum<=5 do
  begin
    Inc(N);
    Sum:=Sum+1/N
  end;
writeln('Summa=',Sum:0:4)
end.

Добавлено через 49 секунд

Сообщение от fcdk_pavel

N=0 деление на 0

Это почему, если цикл начинается с Inc(N);

@fcdk_pavel 1 / 1 / 0 Регистрация: 04.09.2013 Сообщений: 34
	29.10.2013, 18:13	2
	N=0 деление на 0 0

	29.10.2013, 18:15