Ответ:
Название переменных и их зависимость друг от друга
Запустил программу, выдал ответ 40
Program qq;
var i, n, c:real;
begin
readln(i);
c:=i;
while n<>100 do
begin
n:=n+1;
write(c, ' ');
c:=c*i;
end;
writeln();
<span>end.</span>
7 = 0+7 = 1+6 = 2+5 = 3+4
9 = 0+9 = 1+8 = 2+7 = 3+6 = 4+5
1я цифра должна быть как можно меньше но не ноль - 1
2я как можно меньше из пар с 1. это - 6
3я цифра должна быть как можно меньше - 0
пара к 0 - 9
Ответ 1609
Var
k: integer;
a, s: real;
begin
write('Начальная стоимость: ');
readln(a);
write('Число проданных газет: ');
readln(k);
if k <= 50 then s := k * a
else
begin
s := 50 * a;
s := s + (k - 50) * a * 1.2;
end;
writeln('Выручка составила ', s, ' руб.');
end.