Program Viktoria20; Var i,k, quantity, odd : integer;Begin quantity:=20; odd:=0; For...

Question

Program Viktoria20; Var i,k, quantity, odd : integer;Begin quantity:=20; odd:=0; For i:=1 to quantity do begin k:=random(quantity); if (k mod 2 <> 0 ) then odd:=odd+1; if (k<100 and k>9) then if (k mod 3 = 0 ) then WriteLn(k); end; WriteLn(''); WriteLn('количество нечетных:', odd);end.Подскажите пожалуйста где я ошиблась, и почему приложение выдает ошибку?((( ​

Comments

Такст сообщения об ошщибке надо в таких случаях давать. Там и номер строки, и диагностика.

---

Спасибо за замечание, буду знать!)))

---

А вообще надо писать так: if (k<100) and (k>9)

---

Потому что без этих скобок понимается как if k<(100 and k) >9) и потому ругается

---

Спасибо))

---

Пожалуйста

Answer 1

Ответ:

if (k<100 and k>9) and (k mod 3 = 0 ) then WriteLn(k);

Объяснение:

попробуй вместо then if  поставить and