Составьте программу. Дана сумма номеров страниц книги. Определить последнюю страницу и количество листов в книге. Сумма номеров страниц 61.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Поделитесь своими знаниями, ответьте на вопрос:
var all_list, list, count, i:integer;
begin
list := 0; count:=0;
write('Введите сумму номеров страниц книги: ') ;
readln(all_list);
while all_list <> list do
begin
count := count +1;
list := list + count;
end;
writeln('Всего листов: ', count);
write('Последняя страница: ', count*2);
end.