Консультация № 199351
19.10.2020, 06:07
0.00 руб.
0 1 1
Здравствуйте! Как это решить?

Обсуждение

давно
Старший Модератор
31795
6196
19.10.2020, 10:37
общий
это ответ
Здравствуйте, colpo99!
Смотрите код:
[code lang=pascal]var
a,b,c,k,m,x,y:integer;
begin
readln(x,y,a,b);
for m:=1 to (x-y)do
begin
c:=0;
if (a+m)>=b then
begin
k:=0;
repeat
inc(k);
inc(c);
until k>=x;
end
else
begin
k:=1;
repeat
inc(k,2);
inc(c);
until k>=y;
end;
end;
writeln(c:8,k:8,m:8);
end.[/code]

Ответ 3 3 2
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа