Определите сумму всех элементов последовательности, завершающейся числом 0. числа, следующие за нулем, считывать не нужно. входные данные вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит выходные данные выведите ответ на . примеры входные данные 1 7 9 0 выходные данные 17

Pascal
 
var
    a,s : integer;
 begin
   s := 0;
   readln (a);
  While a <> 0 do
    begin
     s := s +a;
     readln (a);
    end;
 
  writeln (s);
 end.

QBasic — диалект языка программирования Бейсик (BASIC), разработанный компанией Microsoft, а также среда разработки, позволяющая писать, запускать и отлаживать программы на этом языке.

QBasic удобен для выполнения несложных вычислений и для прямой работы с портами. Наряду с Pascal, язык довольно популярен для обучения программированию, и не используется нигде.

Turbo Basic — компилятор языка Бейсик, а также его диалект, первоначально созданный Робертом «Бобом» Зейлом и впоследствии выкупленный у него компанией Borland

Для какого из указанных значений числа X ложно выражение

(X > 2) ИЛИ НЕ (X > 1)?

2

Для какого числа X истинно высказывание (X > 2)v(X > 5)→(X < 3)

2

Для какого из указанных значений числа X истинно выражение

(X > 2) И НЕ (X > 3)?

3  

Для какого из указанных значений числа X истинно выражение

(X < 3) И ((X < 2) ИЛИ (Х > 2))?

1  

Для какого из указанных значений числа X истинно выражение

(X < 4) И (X > 1) И (Х ≠ 2)?

3

Для какого из указанных значений числа X истинно выражение

(X > 4) ИЛИ (X < 7) И (Х < 6)?

1) 1

2) 2

3) 3

4) 4

Тут подходит любой вариант

Для какого из указанных значений числа X истинно выражение

(X > 1) И (X > 2) И (Х ≠ 3)?

4