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.
Подскажите пожалуйста где я ошиблась, и почему приложение выдает ошибку?((( ​

Answer 1

Ответ:

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

Объяснение:

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