Написать в турбо паскале, Цикл с параметром, Цикл, с постусловием, и с предусловием пожалуйста

@ArtemPerm · Регистрация: 29.08.2013

Название: 5656.png
Просмотров: 157

Размер: 1.3 Кб

@ermolay · 09.09.2013, 23:01

Pascal

var
  n,k: byte;
  s: real;
begin
  k:=1; s:=0;
  for n:=1 to 4 do
  begin
    k:=k*n;
    s:=s+(5*n*n+sqrt(n))/k;
  end;
  writeln('s=',s:0:3);
  readln;
end.

Pascal

var
  n,k: byte;
  s: real;
begin
  n:=1; k:=1; s:=0;
  repeat
    k:=k*n;
    s:=s+(5*n*n+sqrt(n))/k;
    inc(n);
  until n>4;
  writeln('s=',s:0:3);
  readln;
end.

Pascal

var
  n,k: byte;
  s: real;
begin
  n:=1; k:=1; s:=0;
  while n<=4 do
  begin
    k:=k*n;
    s:=s+(5*n*n+sqrt(n))/k;
    inc(n);
  end;
  writeln('s=',s:0:3);
  readln;
end.

@ArtemPerm 2 / 0 / 0 Регистрация: 29.08.2013 Сообщений: 29
		1
	Написать в турбо паскале, Цикл с параметром, Цикл, с постусловием, и с предусловием пожалуйста 09.09.2013, 22:01. Просмотров 1357. Ответов 1 Метки нет (Все метки) 0

Опции темы

Написать в турбо паскале, Цикл с параметром, Цикл, с постусловием, и с предусловием пожалуйста

Решение