⇢ ЮО
Юлия Орешина
Помогите написать программу на языке Паскаль!
Даны 2 числа a и b, найдите сумму всех целых чисел (от а до b включительно)
АК
Андрей Козловцев
Ждать будете?
Var
A, B: Integer;
begin
A:=0;
S:=0;
Program Summa;
Var
I, K, S: Integer;
Begin
N:=b-a;
S:=0;
For I:=1 To N Do
S:=S + I;
Writeln ('Cумма = ', S)
End.
А самой написать - слабо? Я Паскаль учил более 30 лет назад. Но пока чевой та помню..
Похожие вопросы