Предмет: Информатика,
автор: Feifee25
Помогите пожалуйста...
Паскаль, while
Приложения:
![](https://files.topotvet.com/i/0da/0da5c0a0f74211917b457228c8c14794.png)
Ответы
Автор ответа:
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
Предмет: Українська мова,
автор: ninapetrovec201
Предмет: География,
автор: dureshkakoshko
Предмет: Химия,
автор: Komsomolka00
Предмет: Химия,
автор: antzeus27