Сколько чисел нужно взять в последовательности : 1+2+3+4...N. Чтобы получилось число, больше чем N? При N=252 нужно взять 23 числа
5-9 класс
|
Программа + блок-схема.
Программа №1:
Var n,i,sum:integer;
Begin
Write('Введите N в последовательности 1+2+3+4...N: '); readln(n);
while(sum<n) do begin
i:=i+1;
sum:=sum+i;
end;
Writeln('Чтобы получилось число больше ',n,' нужно взять ',i,' числа');
End.
Блок-схема в приложении
Задача №2
Var i:integer;
a1,a:real;
Begin
a:=65000;
for i:=1993 to 2014 do
Begin
Writeln(i,' год - ',a:0:0,' жителей');
a1:=(a/100)*3;
a:=a+a1;
end;
End.
Спасибо)
А можно ещё ко второй?)
Пожалуйста
Комментарий удален
Комментарий удален
Другие вопросы из категории
средний объем водохранилищ, максимальную глубину и минимальный напор водохранилищ.
2)Перечислите известные вам формы записи алгоритмов?
3)Злая мачеха отправила падчерицу за водой "Вот тебе 2 ведра, в одн из них входит 9 литров воды, а в другое 5 литров. Но ты должна принести домой ровно 3 литра воды",- сказала она бедной девушке.Как должна действовать падчерица, чтобы выполнить это поручение?
4)Какие геометрические фигуры используются в блок-схеме?
5)Каким образом задается порядок выполнения отдельных действий в блок схеме?
Читайте также
Программа + блок-схема.
точно получить хотябы две конфеты мишка на Севере?
условие, что в палитре 16 миллионов цветов?Сколько секунд потребуется модему, передающему сообщение со скоростью 14400 бит/сек, чтобы передать цветное растровое изображение размером 800×600 пикселей при условии, что в палитре 16 миллионов цветов?