⇢ Ал
Александр
Решите плииз! ! Языки Pascal
Надежда Дворенкова
uses crt;
Var i, s, N:integer;
Begin
Clrscr;
Writeln('введите N меньшее 100: ');
Read(N);
s:=0;
For i=1 to N do
s:=s+i;
Writeln('сумма чисел от 1до ',N,' = ',s);
End.
Татьяна Комирко
readln(n);
writeln(n*(n + 1)/2);
Похожие вопросы