Переделать предусловие на постусловие

@михаил111 · Регистрация: 29.03.2011

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

как переделать на постусловие?

Pascal

var
 i,w,k: integer;
 f: boolean;
begin
 write('enter w: ');
 readln(w);
 k:=2;
 while k<>w do
  begin
   for i:=2 to k-1 do
    if k mod i = 0 then f:=true;
   if f=false then writeln(k);
   f:=false;
   ink(k);
  end;
end.

@mr. Spock · 14.05.2011, 20:12

Pascal

repeat
 begin
 for i:=2 to k-1 do
if k mod i = 0 then f:=true;
if f=false then writeln(k);
f:=false;
ink(k);
 end
 until k<>w;

@михаил111 · 15.05.2011, 11:25 **[ТС]**

НЕ РАБОТАЕТ

Humanoid · 15.05.2011, 11:34

Можно сделать так, но это плохая идея. В данном случае while лучше подходит.

Pascal

 k:=1;
 repeat
   ink(k);
   for i:=2 to k-1 do
    if k mod i = 0 then f:=true;
   if f=false then writeln(k);
   f:=false;
  until k=w-1;

@михаил111 0 / 0 / 0 Регистрация: 29.03.2011 Сообщений: 27
	15.05.2011, 11:25 [ТС]	3
	НЕ РАБОТАЕТ 0

	15.05.2011, 11:34

Переделать предусловие на постусловие

Решение