Информатика • 8 класс
39
Подсчёт количества элементов массива и их суммы (Паскаль)
- Пример. Составьте программу, которая будет считать сумму введённых с клавиатуры цифр до тех пор, пока не будет встречено отрицательное число.
- Решение.
Var x, sum: integer;
Begin
sum := 0;
writeln(‘Введите числа:’);
readln (x);
while (x ＞ 0) do
begin
sum := sum + x;
readln(x)
end;
writeln (‘Сумма введённых чисел равна ’, sum)
End.
Было полезно?
Рекомендуем
Вы учитель или ученик?
Познакомьтесь с нашим образовательным онлайн-сервисом с тысячами интерактивных работ
Учителю
Удобно проводить уроки в классе, назначать работы на дом и анализировать результаты всего класса или конкретных учеников
Ученику
Самостоятельно изучать новые и повторять пройденные темы, готовиться по индивидуальной траектории и оценивать результаты на наглядных графиках