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