Предмет: Информатика,
автор: irina548
вычислить сумму 0+1+2+3+4+5...+99 и определить сколько чисел просуммировано
Паскаль
Нужен текст проги со всеми var begin end итд
Ответы
Автор ответа:
0
114.6 чисел
на канкуляторе не легче решить?
на канкуляторе не легче решить?
irina548:
Если бы можно было на нем,я бы не спрашивала)
Автор ответа:
0
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.
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.
уже
Похожие вопросы
Предмет: Русский язык,
автор: polinapochts5
Предмет: Английский язык,
автор: denisovuu03
Предмет: Алгебра,
автор: sannyily
Предмет: Математика,
автор: dimon185