Перевести задачу в цикл Repeat и for

@Joker456 · Регистрация: 13.10.2013

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

Всем здравствуйте !

Помогите переписать программу с цикла While на циклы For и Repeat

Pascal

Var i,n,st:Integer;
Begin
  WriteLn('Введите число '); ReadLn(n);
  st:=1; i:=1;
  While i<=n Do
   Begin st:=st*2; inc(i) End;
  WriteLn('2 в степени ',n,' = ',st);
 ReadLn;
end.

@Basill · 24.10.2013, 14:43

Pascal

Var i,n,st:Integer;
Begin
  WriteLn('Введите число '); ReadLn(n);
  st:=1; i:=1;
  for i:=1 to n Do
   Begin 
   st:=st*2; 
  inc(i)
  End;
  WriteLn('2 в степени ',n,' = ',st);
 ReadLn;
end.

@Samhain · 24.10.2013, 14:46

Joker456,

Pascal

var i,n,st:Integer;
begin
  writeLn('Введите число ');readln(n);
  st:=1; i:=1;
  repeat
    st:=st*2; inc(i)
  until i>n;
  writeLn('2 в степени ',n,' = ',st);
  readLn;
end.

Pascal

var i,n,st:Integer;
begin
  writeLn('Введите число ');readln(n);
  st:=1; i:=1;
  for i:=1 to n do
    st:=st*2;
  writeLn('2 в степени ',n,' = ',st);
  readLn;
end.

@Joker456 · 24.10.2013, 15:03 **[ТС]**

Аа точно у меня все тоже самое получалось только 2 цифры не те указал в цикле For

Pascal

1	i:=1 to 1 do

А в цикле Repeat указывал и с присваиванием

Pascal

1	st:=0; i:=2{несколько цифр перебрал} Until i>=n

	24.10.2013, 15:03