16 июля, 15:40

Выполнить домашнее задание используя цикл while:

 Ввести с клавиатуры число. Увеличивать переменную i до тех пор, пока она не станет равна введенному числу;

 Программа рассчитывает сумму цифр введенного пользователем числа.

Домашнее задание

+2
Ответы (1)
  1. 16 июля, 16:11
    0
    1) var i, n: Integer;

    begin

    i:=0;

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

    readln (n);

    while in do

    begin

    Inc (i);

    writeln (i);

    end;

    end.

    2) var i, n, x, count: Integer;

    begin

    writeln ('Введите кол-во цифр');

    readln (n);

    for i:=1 to n do

    begin

    writeln ('Введите ', i,' число');

    readln (x);

    Inc (count, x);

    end;

    writeln ('Сумма чисел: ', count);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Выполнить домашнее задание используя цикл while:  Ввести с клавиатуры число. Увеличивать переменную i до тех пор, пока она не ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы