Татьяна Ларина,читала очередной французский роман, подсчитала сумму номеров прочитанных
Татьяна Ларина,читала очередной французский роман, подсчитала сумму номеров прочитанных страничек. Обозначим эту сумму Q. Написать программку, определяющую номер странички. (PascalABCNET)
Задать свой вопрос2 ответа
Камилла Обломова
Var q,i,s:integer;
begin
readln(q);
s:=0;
i:=0;
while slt;q do
begin
i:=i+1;
s:=s+i;
end;
if s=q then writeln('Страничка = ',i+1)
else writeln('Ошибка ввода');
end.
Пример:
5
Страничка = 6
begin
readln(q);
s:=0;
i:=0;
while slt;q do
begin
i:=i+1;
s:=s+i;
end;
if s=q then writeln('Страничка = ',i+1)
else writeln('Ошибка ввода');
end.
Пример:
5
Страничка = 6
Коклягина
Эльвира
В образце опечатка: заместо 5 должно быть 15
Подьемщиков
Дмитрий
Конкретно так. Если Татьяна читает страничку 6, то сумма прочитанных страничек = 1+2+3+4+5 = 15.
Агата Довчаненко
Интерпретировать, вправду, можно по-разному. Мне захотелось конкретно так сделать. А что конкретно требуется в задаче - пусть создатель вопроса решает.
Дриликов Андрей
Сумма страничек q = 1+2+3+4+...+n.
Это арифметическая прогрессия, формула суммы которой знаменита из математики.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программка не работает, обновите версию!
begin
var q:=ReadInteger('q=');
Writeln('n = ',(Sqrt(1+8*q)-1)/2:0)
end.
Пример
q= 55
n = 10
Это арифметическая прогрессия, формула суммы которой знаменита из математики.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программка не работает, обновите версию!
begin
var q:=ReadInteger('q=');
Writeln('n = ',(Sqrt(1+8*q)-1)/2:0)
end.
Пример
q= 55
n = 10
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов