Помогити плииииз:3Даю 40 баловНапишите программку, которая в последовательности целых чисел

Помогити плииииз:3Даю 40 банкетов
Напишите программу, которая в последовательности целых чисел находит сумму чётных чисел в спектре
от 5 до 25. Программа получает на вход целые числа, количество введённых чисел безызвестно,
последовательность чисел кончается числом 0 (0 - признак окончания ввода, не заходит в
последовательность).

Задать свой вопрос
Виктория Сигонина
Какой требуется язык?
Степа Цымбалистов
английский
Елена Сьедучина
...программирования...
Olesja Trava
паскаль
2 ответа
Program n1;
var a,sum: integer;
begin
sum:=0;
readln(a);
while alt;gt;0 do begin
if (agt;=5) and (alt;=25) and (a mod 2=0) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
Stepa Zlotnik
можешь еще решить задачек которые я выложу?Тоже столько же балов:3
Kulimenkov Evgenij
Дам 98 раутов:3https://znanija.com/task/31445165

Программка и результат её исполнения на снимках экрана.

Ошанин Алеша
Просто на будущее - есть цикл с постусловием (чтоб не писать два раза readln):repeat блок операторов until условие;
Timur Zlatin
Спасибо) Просто у нас все строго. И если я буду так писать то получу 2)
Антон Мизгин
Подумают что списала
Борис Сумарока
У Вас есть железный аргумент - самообразование)
Эвелина Каракетова
Ну у меня школа с углубленным изучением информатики. Размышляю не прокатит)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт