Цикл Repeat - Помощь студентам

Anwen · 21.11.2010, 10:24

Здравствуйте!
Не могли бы помочь в решении задач, с использованием цикла Repeat

Буду очень признательна!

GetMax · 21.11.2010, 16:08

Задача №3

Код:

Var
  i,j,Kv,Kol_sl:Byte;
Begin
  Write('Введите число: ');
  Readln(i);
  Writeln;
  Kv:=0;
  j:=1;
  Kol_sl:=0;
  Repeat
    Inc(Kol_sl);
    Kv:=Kv+j;
    Inc(j,2);
  Until  Kol_Sl >= i;
  Writeln(i,' в квадрате = ',Kv);
  Readln
End.

21.11.2010, 16:08	#2
GetMax Форумчанин Регистрация: 21.10.2010 Сообщений: 588	Задача №3 Код: `Var i,j,Kv,Kol_sl:Byte; Begin Write('Введите число: '); Readln(i); Writeln; Kv:=0; j:=1; Kol_sl:=0; Repeat Inc(Kol_sl); Kv:=Kv+j; Inc(j,2); Until Kol_Sl >= i; Writeln(i,' в квадрате = ',Kv); Readln End.` Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Для благодарностей WMR R145235935681

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Цикл while and Repeat	ates	Помощь студентам	5	14.05.2010 22:35
Цикл while-repeat	Wasisualy	Помощь студентам	1	18.12.2009 20:49
Цикл repeat until	ac1d_buRn	Помощь студентам	4	06.10.2009 21:55
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until)	Mr.User	Помощь студентам	9	23.11.2007 01:34