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

Решить задачку на языке программирования Pascal:
Отыскать сумму естественных четных чисел в интервале от 1 до 13. Если эта сумма больше 15, вывести известие "Много!", в неприятном случае вывести известие "Малюсенько!".

Задать свой вопрос
Vasilij Druzhina Artemovich
а нам надобно что-то вводить?
Жинжина Надежда
наверняка
Вероника Цинговатая
... тогда вводим 13 чисел?
Егор Новихин
быстрей всего
Алина Марханова
ты такая разумная/разумный
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 sumgt;15
  then writeln('Много')
  else writeln('Малюсенько');

end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт