Программа на TP: Написать программу вычисляющую сумму целых положительных чисел из промежутка от a и b кратных 4

[Zepko]

Всем привет я новичок в програмировании,мне задали вот такую задачу:
Написать программу вычисляющую сумму целых положительных чисел из промежутка от a и b кратных 4
Помогите пожалуйста (нужно до завтра 08:00 утра по МСК)

______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Serge_Bliznykov]

неужели всё так плохо?!

begin
  Readln(a,b);
  s := 0;
  for i:=a to b do
    if i mod 4 = 0 then s := s + i;
  WriteLn(s);
  Readln;
end.

описание переменных a, b, i, s добавите самостоятельно.

[Poma][a]

Серж, всё бы хорошо если бы не

сумму целых положительных

Так что можно предположить что автор задачи имел ввиду что A и B могут быть вещественными. Так что предлагаю такой вариант

i := Trunc (a);
if Trunc (a) <> a then
       Inc (i);

Можно загнать в одну формулу, но что бы ТС побыстрее разобрался сделал так..

Так-с.. идем дальше..

Чтобы не перебирать все можно идти только по числам кратным 4.

if i mod 4 <> 0 then
              Inc (i, 4 - i mod 4);

Дальше

r := 0;
while i <= b do begin
                 r := r + i;
                 Inc (i, 4)
end;

Вот в принципе и все..

[Stilet]

автор задачи имел ввиду что A и B могут быть вещественными.

Врядли....

[Zepko]

Большльшое спасибо,тем кто помог!Конечно я за 2 урока програмирования на TP по 40 мин. всю программу выучить немог.Потому что когда в 9 классе разбирали ее ,я особое внимание ей не уделял.Я сейчас в 10 классе понял,что хочу поступить на инженера-программиста!