Найти все двухзначные числа, кратные 7, не используя оператор if

Question

Найти все двухзначные числа, кратные 7, не используя оператор if

Answer 1

Var
  i, kor, koz, ov: integer;

begin
  for i := 1 to 40 do
  begin
    koz := i;
    kor := 2 * koz;
    ov := 40 - (koz + kor);
    if ov < 0 then break;
    writeln('Овец: ', ov, ' Коров: ', kor, ' Коз: ', koz);
  end
end.

Comments

Ой, не используя if надо, счааас

---

Готово

---

var
i, ch: byte;

begin
ch := 0;
while ch<>98 do begin
ch:=ch+7;
writeln(ch);
end;
end.