Цикл 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