Вычислить сумму 0+1+2+3+4+5...+99 и определить сколько чисел просуммировано Паскаль Нужен текст проги со всеми var begin end итд
114.6 чисел на канкуляторе не легче решить?
Если бы можно было на нем,я бы не спрашивала)
Var i,sum,n,count: Integer; begin writeln('Введите максимальное число диапазона'); readln(n); for i:=1 to n do begin Inc(sum,i); Inc(count); end; writeln('Кол-во чисел: ',count); writeln('Сумма чисел равна: ',sum); end.
Мой вопрос полностью совпадает с ответом.
Если без for работать, то нужно самостоятельно каждую цифру прописывать.
writeln(1+2+3+4+5+6+7+8+9+10...);
а куда эту строчку вставить?
Вы не учили ни один из циклов?
неа только начали паскаль
дошлли до циклов с предусловием и задач со счетчиком
Нужно было в вопросе вам написать, чтобы мы сделали вам программу через while!
Создайте новый вопрос и дополните его тем, чтобы люди сделали его через цикл while.
уже