program raf105;
var
white,blue,red,x,y,z: integer;
w,b,r: boolean;
begin
writeln('Ввод:');
readln(white, blue, red, x, y, z);
repeat
w:= false;
b:= false;
r:= false;
if white >= x
then begin
white-= x;
blue+= 1;
end
else w:= true;
if blue >= y
then begin
blue-= y;
red+= 1;
end
else b:= true;
if red >= z
then begin
red-= z;
white+= 1;
end
else r:= true;
until w and b and r;
writeln('Вывод:');
writeln(white,' ', blue,' ', red);
end.
PascalABC 3.4.2
Запишу на обычном языке, Паскаль не помню уже.
А - первое число. Б - второе число.
Если А больше Б и Б div 5=0 тогда выводится на экран (' Б наименьшее число и нацело делится на 5')
Если Б больше А и А div 5=0 тогда выводится на экран (' А наименьшее число и нацело делится на 5')
Точно не помню как выглядит это в Паскале, но что-то типо такого
If A<B and A div 5=0 then writeln ('А наименьшее число и нацело делится на 5');
If B<A and B div 5=0 then writeln ('Б наименьшее число и нацело делится на 5');
