Предмет: Информатика, автор: Feifee25

Помогите пожалуйста...
Паскаль, while

Приложения:

Ответы

Автор ответа: shavrinatv
1

Ответ:

Объяснение:

var  

N,K,S:integer;

begin

writeln('Введите число N>1');

readln(N);

K:=1;S:=0;

while S<N do

begin

S:=S+K;

K:=K+1;

end;

Writeln('K=',K-1,'      Сумма: ',S);

end.

Похожие вопросы
Предмет: Математика, автор: alexeyjob123