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

Question

Информатика

Радослава

10 июня, 13:40

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

+3

Ответы (1)

Знаете ответ на вопрос?

Эдик · 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.