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

    Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и подсчет количества введеных чисел .Используйте оператор while. Решить в паскале.

    • Автор:

      dustinlambert
  • Ответ:

    Огромное спасибо!
    • Отвечал:

      speedykey

    Ответ:

    Пожалуйста
    • Отвечал:

      tankag1j

    Ответ:

    Спасибо!
    • Отвечал:

      domingoe67b

    Ответ:

    var a,k:integer;beginwrite('a = '); readln(a);k:=0;while a<>0 do begin k:=k+1; write('a = '); readln(a); end;writeln('Количество чисел = ',k);end.Пример:a = 8a = 7a = 5a = 3a = 2a = 4a = 1a = 9a = 0Количество чисел = 8
    • Отвечал:

      fionaufh8

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