Вычислить сумму чётных чисел на интервале от a до - вопрос №9281330 от яглупенькая 08.03.2020 15:06

Question

Информатика: Вычислить сумму чётных чисел на интервале от a до b включительно, заданный пользователем. написать программу и начертить блок схему

яглупенькая · Answer

Var

a,b,i: Integer;

s,s1: Longint;

BEGIN

writeln('Ввод а');

readln(a);

Writeln('Введите b: '); Readln(b);

For i:=a to b do

If i mod 2=0 Then s:=s+i

Else s1:=s1+i;

Writeln('Сумма четных: ',s);

Writeln('Сумма нечетных: ',s1);

END.