Информатика, опубликовано 2018-08-22 20:47:06 by Гость
Найти количество натуральных чисел,сумма которых не превышает 100
Ответ оставил Гость
Задача решена в TPascal
var s,k,i:integer;
begin
i:=1;s:=0;k:=0;
while sbegin
k:=k+1; s:=s+i; i:=i+1;
end;
writeln (k);
readln;end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.