В Паскале с помощью repeat. Составьте программу, которая выводит на экран сумму нечетных чисел от 36 до 66.
В Паскале с помощью repeat. Составьте программу, которая выводит на экран сумму нечетных чисел от 36 до 66.
Гость
Ответ(ы) на вопрос:
ГостьBegin
Writeln(((65+37)*((65-37) div 2 +1)) div 2);
end.
Или более универсально:
Var A,B : Integer;
Begin
Readln(A,B);
Inc(A,Ord(not Odd(A)));
Dec(B,Ord(not Odd(B)));
Writeln(((B+A)*((B-A) div 2 +1)) div 2);
end.
А если строго по заданию, то так:
Var S,i : Integer;
Begin
s:=0; i:=37;
Repeat
s:=s+i;
Inc(i,2);
Until i>65;
Writeln(s);
end.
Не нашли ответ?
Похожие вопросы