52

Срочно! Задача должна быть решена на языке програмирования турбо паскаля! «Найти…

19 марта 2023

Срочно! Задача должна быть решена на языке програмирования турбо паскаля! «Найти сумму всех четных чисел из промежутка от A доB! "

категория: информатика



97

var i,s,a,b: integer; BEGIN read (a,b); s: =0; for i: =a to b do if i mod 2=0 then s: =s+i; writeln (s); END.

Знаете ответ?


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