6. Отыскать сумму целых положительных чисел из промежутка от А до

6. Отыскать сумму целых положительных чисел из интервала от А до В, кратных 4 (значения А и В вводятся с клавиатуры, предугадать случаи когда Alt;=B и Agt;B).

Задать свой вопрос
1 ответ
var a,b,i,s:integer;
begin
readln(a,b);
if agt;b then begin s:=a; a:=b; b:=s; end;
s:=0;
for i:=a to b do
if (igt;0)and(i mod 4=0) then s:=s+i;
writeln('s = ',s);
end.

Пример:
30 -10
s = 112
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт