Составить программу вычисления стоимости восьми книг, если одна книга стоит 100 рублей, а каждая следующая дороже предыдущей на 7 рублей. (паскаль)

Question

Гость

Информатика

7 сентября, 10:27

Составить программу вычисления стоимости восьми книг, если одна книга стоит 100 рублей, а каждая следующая дороже предыдущей на 7 рублей. (паскаль)

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Крамер · Answer 1

var a, b, c, d, e, f, h, k, s:integer;

begin

write ('Введите стоимость одной книги ');

readln (a);

b:=a+7;

c:=b+7;

d:=c+7;

e:=d+7;

f:=e+7;

h:=f+7;

k:=h+7;

s:=a+b+c+d+e+f+h+k;

writeln (' Стоимость восьми книг = ', s);

end.