Определите значение переменной d после выполнения программы:
var a, b, c, d:integer;
begin
a:=6;
b:=5;
c:=14;
if (a*b) < c then d:=c - a
else d:=c - b;
writeln(d);
end.

Question

Информатика: Определите значение переменной d после выполнения программы: var a, b, c, d:integer; begin a:=6; b:=5; c:=14; if (a*b) c then d:=c - a else d:=c - b; writeln(d); end.

Gkdm · Accepted Answer

Решение больше математическое получилось с выводом формулы, там уж сами выберете как вам лучше.
На каждый следующий день спортсмен пробегает в
$\frac{100+10}{100} = 1.1$
большее расстояние чем в предыдущий.
Т.е. если обобщить:
$S_n = 10(1.1)^{n-1}$
Расстояние, которое спортсмен пробегает каждый n-ный день.
В итоге, у нас получилась геометрическая прогрессия, где
b_1 = 10; q = 1.1

$b_n = 10(1.1)^{n-1}$
Чтобы найти сумму первых n членов геометрической прогрессии:
$S_n = \frac{b1(1-q^n)}{1 - q} \\
S_7 = \frac{10(1-1.1^7)}{1 - 1.1} = \frac{-10(1.1^7-1)}{-0.1} = 100(1.1^7 - 1)$
В программе пишем:
_________________________
var
i:integer;
k:double;
begin
k:=1.1;
for i:=1 to 6 do k:=k*1.1;
writeln(100*(k-1):0:2);
end.
__________________________

Определите значение переменной d после выполнения программы: var a, b, c, d:integer; begin a:=6; b:=5; c:=14; if (a*b) < c then d:=c - a else d:=c - b; writeln(d); end.

MOGZ ответил

Определите значение переменной d после выполнения программы:
var a, b, c, d:integer;
begin
a:=6;
b:=5;
c:=14;
if (a*b) < c then d:=c - a
else d:=c - b;
writeln(d);
end.