а) Найти сумму членов вводимые в числовой последовательности, признаком конца является

а) Найти сумму членов вводимые в числовой последовательности, признаком конца является 0.

б) Составить программку вывода нечетных чисел от 1 до 10 используя цикл WHILE.

Задать свой вопрос
1 ответ


var a,i,s,tmp:integer;
begin cls;

readln(a);
while a lt;gt; 0 do
begin
s:=s+a;
readln(a);
end;
writeln(s);
end.


var i:integer;
begin cls;
i:=0;

while i lt;= 10 do
begin
if (i mod 2 lt;gt;0) then writeln(i);
inc(i);
end;
end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт