• Вопрос по информатике:

    Написать программу в Паскале (ВВОДИТЬ ЧИСЛА ДО ТЕХ ПОР ПОКА ОЧЕРЕДНОЕ НЕ ОКАЖЕТСЯ РАВНО 0,НАЙТИ СУММУ ЧИСЕЛ С ЧЕТНЫМ

    • Автор:

      otis7
  • Составим программу на языке программирования PascalПервый вариант:varsum, x: real;i: integer;begini := 1;sum := 0;repeatreadln(x);if not odd(i) thensum := sum + x;inc(i);until (x = 0);writeln(sum);end.Второй вариант:var a,i,s:integer;beginwrite(\'a=\'); readln(a);s:=0;i:=1;while a<>0 dobeginif i mod 2 =0 then s:=s+a;i:=i+1;write(\'a=\'); readln(a);end;writeln(\'s=\',s);end.

    • Отвечал:

      persysjqa
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска