Предмет: Информатика,
автор: Exoten
Татьяна Ларина,читала очередной французский роман, подсчитала сумму номеров прочитанных страниц. Обозначим эту сумму Q. Написать программу, определяющую номер страницы. (PascalABCNET)
Ответы
Автор ответа:
1
var q,i,s:integer;
begin
readln(q);
s:=0;
i:=0;
while s<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 s<q do
begin
i:=i+1;
s:=s+i;
end;
if s=q then writeln('Страница = ',i+1)
else writeln('Ошибка ввода');
end.
Пример:
5
Страница = 6
petyaGavrikov:
В примере опечатка: вместо 5 должно быть 15
Автор ответа:
0
Сумма страниц 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
Похожие вопросы
Предмет: Литература,
автор: tsokirenko4
Предмет: Математика,
автор: davyd8218
Предмет: Математика,
автор: hamoriadasha
Предмет: Литература,
автор: musaevahava1411
Предмет: Биология,
автор: lemon12559