Решить задачу на языке программирования Pascal:
Найти сумму натуральных четных чисел в промежутке от 1 до 13. Если эта сумма больше 15, вывести сообщение "Много!", в противном случае вывести сообщение "Мало!".
Найти сумму натуральных четных чисел в промежутке от 1 до 13. Если эта сумма больше 15, вывести сообщение "Много!", в противном случае вывести сообщение "Мало!".
More Questions From This User See All
Answers & Comments
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.