N - Скільки років буде навчатися Гаррі
X, P1 - Скільки витратив галлеонів Гаррі на підручники перед першим роком
P2- Скільки витратив галлеонів Гаррі на підручники перед другим роком
P - Скільки витрачав галлеонів Гаррі на підручники кожного року, починаючи з третього
N1 – Поточний рік навчання
S – Кошти за всі попередні роки перед поточним, починаючи з третього
S1 - Загальна сума, витрачена на підручники за всі роки
program Potter;
var n,p1,p2,p,n1,x,s,s1:integer;
begin
writeln('Скільки років буде навчатися Гаррі?');
readln(n);
writeln('Скільки витратить галлеонів Гаррі на підручники перед першим роком');
readln(x);
p1:=x;p2:=2*x;
writeln('рік навчання сума галлеонів');
writeln('1',' ',p1);
writeln('2',' ',p2);
n1:=2; p:=p1+p2; s:=0; s1:=0;
if n>2 then
repeat
s:=s+p;
p:=s;
s1:=s1+p;
n1:=n1+1;
writeln(n1:2,' ',p);
until(n1=n);
writeln('загальна сума, витрачена на підручники=',s1:5);
readln; end.
5.3. Коли будування родинного замку завершувалося, головний виконроб Дуська виявила, що нам не вистачає потроху різних будівельних матеріалів. Тому Петрик з таксою пішли до будівельного супермаркету, щоб їх придбати. Але такса Дуська дуже хвилюється, що ми можемо потрапити у незручне становище, оскільки у нас залишилося мало грошей. Напишіть програму, яка б запитувала вартість кожної наступної покупки, виводила суму, яку ми витратили на даний момент, і коли ця сума виявиться більшою, ніж кошти, що є у Дусі, повідомляла, останню покупку треба повернути на поличку магазину.
program summa;
var s,s1,x:integer;
begin
writeln(‘Скільки грошей у Дуськи?’);
readln(s);s1:=0;
repeat
writeln('Скільки коштує покупка?');
readln(x);
s1:=s1+x;
writeln('Всьго витрачено=',s1:3);
until s1>s;
writeln('Поверніть на поличку'); end.