Значение переменной y в команде x:=x+y не меняется, т.е y=25
x(новое) = x(старое)+y ⇒ x(старое) = x(новое)-y = 7-25 = -18
Ответ: x=-18; y=25
................................................
<span>12 л ловят 12 к за 12 мин
Значит 1 л ловит 1 к за 12 мин
</span>Значит 1 л ловит 2 к за 24 мин
Значит 13 л ловит 26 к за 24 мин
<span>Значит 12 л ловит 24 к за 24 мин</span>
Вообщем получается что достаточно 13 лягушек, 12 может быть маловато, не успеют
1) 01000101011110000110001101100101<span>01101100
2) </span>0100000101100011011000110110010101110011<span>01110011
3) </span>010101110110100101101110011001000110111101110111<span>01110011
В двоичной СС =)</span>
//Pascal ABC.NET v3.1 сборка 1172
var
n, m: integer;
begin
read(n, m);
repeat
writeln('Текущее значение N:', n, ' ,до m:', m - n);
inc(n);
until n = m;
writeln('Завершено, n=m');
end.
Пример ввода:
12
20
Пример вывода:
Текущее значение N:12 ,до m:8
Текущее значение N:13 ,до m:7
Текущее значение N:14 ,до m:6
Текущее значение N:15 ,до m:5
Текущее значение N:16 ,до m:4
Текущее значение N:17 ,до m:3
Текущее значение N:18 ,до m:2
Текущее значение N:19 ,до m:1
Завершено, n=m