вычислить сумму 0+1+2+3+4+5...+99 и определить сколько чисел просуммировано
Паскаль
Нужен текст проги со всеми var begin end итд
Ответы на вопрос
Ответил lera8532il
0
114.6 чисел
на канкуляторе не легче решить?
на канкуляторе не легче решить?
Ответил irina548
0
Если бы можно было на нем,я бы не спрашивала)
Ответил estengseant
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.
Ответил irina548
0
неа только начали паскаль
Ответил irina548
0
дошлли до циклов с предусловием и задач со счетчиком
Ответил estengseant
0
Нужно было в вопросе вам написать, чтобы мы сделали вам программу через while!
Ответил estengseant
0
Создайте новый вопрос и дополните его тем, чтобы люди сделали его через цикл while.
Ответил irina548
0
уже
Новые вопросы
Русский язык,
2 года назад
Английский язык,
2 года назад
Геометрия,
8 лет назад
Алгебра,
8 лет назад