Составить программу, которая будет вычислять сумму чисел, введенных с терминала,до тех пор, пока сумма не станет больше 30.
10-11 класс
|
var sum, x: integer;
begin
read (x);
sum:= x;
writeln (x);
while sum<=30 do begin
read (x);
sum :=sum+x;
writeln (x);
end;
end.
Другие вопросы из категории
арифметическое (в паскале)
электронных таблицах у=х2+5 , при значении аргумента изменяющегося
от [-5;5], с шагом 1
Читайте также
7)Задан алгоритм:некоторое число заменяется удвоенной суммой его цифр до тех пор,пока число не станет однозначным.Сопоставьте исходное значение числа с результатом исполнения алгоритма.
Исходное Значение Итоговый результат
1)87 А)8
2)473 В)5
3)1945 С)2
4)1231 D)4
5)5 E)6
8)Исполнитель Вычислитель может хранить в своей памяти только одно число и выполнять только три команды,которым присвоены номера:
0.число * 2
1.к числу + 1
2.обнулить результат
Программа для
всех введенных данных чисел не будет равна 177. №2. Определите диаметр круга, радиус, площадь, если известна длина окружности L. №3.Даны два действительных числа А, В. Найти наибольшее из них и выяснить четное оно или нет.
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.