Составьте алгоритм,определяющий гипотезу (с) и периметр (p) прямоугольного треугольника,если известны его катеты a и b

155

203

Посмотреть ответы 1

Ответы на вопрос:

саня9999999

Информатика

4,7(13 оценок)

program cheese;

var d, n :integer; s, sum :real;

begin

write('Введите число дней: ');

readln(d);

write('Введите массу(в граммах) сыра в первый день: ');

readln(s);

sum:=0;

for n:=1 to d do

begin

sum := sum + s;

s := s * 1.02;

end;

writeln('За ',d,' дней мышь съела ',sum,' г сыра');

end.

150 000+ пользователей

Оформить подписку