Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается нулем. (a=0 признак окончания ввода, ноль не входит в последовательность). Программа должна вывести количество и сумму всех чисел последовательности.

+2
Ответы (1)
  1. 8 июля, 06:44
    0
    Program klhj;

    var

    a, k, s: integer;

    begin

    a:=1;

    while a0 do

    begin

    write ('Введите число: ');

    readln (a);

    if a0 then

    begin

    k:=k+1;

    s:=s+a

    end;

    end;

    writeln ('Количество введенных чилел: ', k);

    writeln ('Сумма всех введенных чисел равна: ', s);

    readln;

    end.

    Используем оператор цикла с предусловием, условие продолжения цикла - а0. Как только переменная а становится нулевой (с клавиатуры вводится 0), цикл сразу прекращает свою работу. Чтобы избежать получения нулевого количества кругов цикла, задается начальное значении а=1. Можно взять любое значение кроме 0.
Знаешь ответ на этот вопрос?
Новые вопросы по информатике
в кодировке кои-8 каждый символ кодируется одним байтом. определите количество символов в сообщени, если информационный обьем сообщения в этой кодировке равен 120 бит.
Ответы (1)
1. Дано целое число, лежащее в диапазоне 1-999. Вывести его строку-описание вида "четное двузначное число","нечетное трехзначное число" и т. д. 2. Даны 3 переменные вещественного типа: А, В, С.
Ответы (1)
что такое графическая модель
Ответы (1)
Сколько всего было иероглифов в египетском письме?
Ответы (1)
Файл размером 6 Кбайт передается через некоторое соединнение 600 сек. Сколько секунд будет передаваться файл размером 6 Гбайт?
Ответы (1)
Напистаь программу удаления из строки чётных или нечётных чисел
Ответы (1)
Орган человека, воспринимающий вкусовую информацию 4 буквы
Ответы (1)
а) Выбери название действия, которое былс совершено при форматировании текста 1. ТЕКСТ 1 Декодирование - это восстановление информации по её кодированной форме ТЕКСТ 2 Декодирование - это восстановление информации по её кодированной форме ТЕКСТ 3
Ответы (1)
Скорость передачи данных через ADSL-соединение 128000 бит/с. Сколько времени займет передача файла объёмом 5 Мбайт по этому каналу? а) 328 б) 41 в) 5,5 г) 40
Ответы (1)
Если при наборе текста все буквы отображаются прописными то это означает что нажатие клавиша 1. Num Lock 2. Caps Lock 3. F1
Ответы (1)