Составить прграмму с командой while для решения задачки: Отыскать сумму 1+3+5+7+9...+31.

Составить прграмму с командой while для решения задачки: Найти сумму 1+3+5+7+9...+31.

Задать свой вопрос
1 ответ
Var x,s:integer;
Begin
 s:=0;
 x:=1;
 while xlt;=31 do
   begin
    s:=s+x;
    x:=x+2;
   end;
 writeln('S=',s);
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт