Напишите программку так, чтоб она выискала сумму первых n нечетных чисел.

Напишите программку так, чтоб она находила сумму первых n нечетных чисел. Выполните трассировку программки в тетради. Протестируйте программку на компьютере.Безотлагательно НАПИШИТЕ В ПАСКАЛЕ ПОЖАЛУЙСТА ЧЕРЕЗ while!
S = 1 + 3 + 5 +7 + 9 + +N

Задать свой вопрос
1 ответ
Var x,s:integer;
begin
ReadLn(x);
while (xgt;0) do begin
s+=x;
x-=1;
end;
WriteLn(s);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт