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

Answer 2

Похоже, что вы используете псевдокод или код на каком-то языке программирования, но код выглядит немного неправильно написанным. Я заметил несколько ошибок в вашем коде. Вот исправленный вариант:

pascalCopy code
Program Viktoria20;

Var
  i, k, quantity, odd: integer;

Begin
  Randomize; // Добавьте эту строку, чтобы инициализировать генератор случайных чисел
  quantity := 20;
  odd := 0;
  
  For i := 1 to quantity do
  begin
    k := random(100); // Генерация случайного числа от 0 до 99
    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.

Внесенные изменения:

1. Добавлена строка Randomize, чтобы инициализировать генератор случайных чисел перед использованием функции random.
2. Изменено k := random(quantity); на k := random(100);, чтобы генерировать случайные числа от 0 до 99.
3. Исправлены условия в строке if (k < 100) and (k > 9) then, чтобы проверить, что число k находится в диапазоне от 10 до 99.

После внесения этих изменений, ваша программа должна работать правильно.