Uses GraphABC; var x, y: word; i: byte; begin SetBrushStyle(bsclear); SetWindowWidth(590); SetWindowHeight(390); Rectangle(5, 5, 585, 385); x := 25; y := 25; Circle(565, 25, 20); Circle(565, 365, 20); Circle(25, 365, 20); repeat Circle(x, y, 20); if (x < 565) and (y = 25) then x := x + 20; if (x = 565) and (y < 365) then y := y + 20; if (y = 365) and (x > 25) then x := x - 20; if (x = 25) and (y > 25) then y := y - 20; until (x = 25) and (y = 25);
Rectangle(50, 50, 540, 340); x := 115; for i := 1 to 8 do begin Circle(x, 210, 6); Circle(x, 210, 40); Circle(x, 210, 45); x := x + 51; end; x := 95; for i := 1 to 11 do begin y := 130; Line(x, y, x, y - 30); y := y - 30; Line(x, y, x + 30, y); x := x + 30; Line(x, y, x, y + 25); y := y + 25; Line(x, y, x - 20, y); x := x - 20; Line(x, y, x, y - 15); y := y - 15; Line(x, y, x + 10, y); x := x + 10; Line(x, y, x, y + 8); y := y + 8; Line(x, y, x - 3, y); x := x - 3; Line(x, y, x, y - 4); y := y - 4; Line(x, y, x - 3, y); x := x - 3; Line(x, y, x, y + 7); y := y + 7; Line(x, y, x + 10, y); x := x + 10; Line(x, y, x, y - 15); y := y - 15; Line(x, y, x - 18, y); x := x - 18; Line(x, y, x, y + 24); y := y + 24; Line(x, y, x + 30, y); x := x + 30; end; end.
Нашел 2 ошибки в 4- строке и 7- строке, объясняю на примере а=15, b=26 как я понял по данным задачи К больше или равно А то есть начальное значение S = A, вторую ошибку можно решить просто поменяв местами операторы 7-ой и 8-ой строки(чтобы сначала программа суммировала S=15+15 а потом уже 30+16,46+18...пока S<B а в задаче делается так 16+1,16+17, 30+18,...) в общем: var a, b, s, k: integer;begin read(a,b); s := a;< k := a; while s < b do begins := s+k;<k := k+1;<end;writeln(k)end.
объяснение:
print('введите a = ')
a = int(
print('введите b = ')
b = int(
print(a, b)
print(a+b)
if (a % 2):
print(a, 'четное')
elif (b % 2):
print(b, 'четное')
if (a > b):
print(a, '> ', b)
else:
print(a, '< ', b)