Решить задачу на языке программирования Pascal:

Найти сумму натуральных четных чисел в промежутке от 1 до 13. Если эта сумма больше 15, вывести сообщение "Много!", в противном случае вывести сообщение "Мало!".

Question

Информатика

Лариска

26 мая, 04:30

Решить задачу на языке программирования Pascal:

Найти сумму натуральных четных чисел в промежутке от 1 до 13. Если эта сумма больше 15, вывести сообщение "Много!", в противном случае вывести сообщение "Мало!".

+3

Ответы (1)

Знаете ответ на вопрос?

Василла · Answer 1

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.