Решить задачу на языке программирования Pascal:
10-11 класс
|
Найти сумму натуральных четных чисел в промежутке от 1 до 13. Если эта сумма больше 15, вывести сообщение "Много!", в противном случае вывести сообщение "Мало!".
var
a : array [1..100] of longint;
sum,i : longint;
begin
sum:=0;
for i:=1 to 13 do begin readln(a[i]); sum:=sum+a[i]; end;
if sum>15
then writeln('Много')
else writeln('Мало');
end.
а нам надо что-то вводить?
... тогда вводим 13 чисел?
ты такая умная/умный
Другие вопросы из категории
кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
(A&B&неC)+(A&B&C)+не(A+B) Повышенный уровень (A+B+C)&не(A+неB+C)
Алгоритм вычисления значения функции
Читайте также
Дана матрица А[8,8] четных чисел натурального ряда (от 2 до 128).
1)Заполнить и записать матрицу.
2)Определит число элементов больших 18 и меньших 60. заменить их на 0.затем записать получившуюся матрицу.
3)Определить произведение главной диагонали и вывести эти элементы на экран.
4)Реализовать определение суммы элементов любого столбца.
Спасибо.
Результаты вывести на экран.