Задание №1702/08

var a, b, p, q : integer;
begin
  p := 0; q := 0;
  a := 5; b := 4;
  repeat
    p := p + a; q := q + b;
    a := a + 35; b := b * 2
  until p = q;
  write(p)
end.

#include <stdio.h>
void main() {
  int p = 0, q = 0;
  int a = 5, b = 4;
  do {
    p += a; q += b;
    a += 35; b *= 2;
  } while (p != q);
  printf("%d", p);
}

DIM P, Q, A, B AS INTEGER
P = 0 : Q = 0
A = 5 : B = 4
DO
  P = P + A : Q = Q + B
  A = A + 35 : B = B * 2
LOOP WHILE P <> Q
PRINT P

p = q = 0
a, b = 5, 4
while True :
  p, q = p + a, q + b
  a, b = a + 35, b * 2
  if p == q :
    break
print(p)