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

Question

Информатика

Генриетта

18 октября, 13:22

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

+4

Ответы (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.