Задать вопрос
ИнформатикаИнформатика
13 июня, 11:14

Какой будет результат кода? ... S:=0; for i:=1 to 10 do begin m1: = i mod 2; m2: = i mod 3; if (m1=1) or (m2=0) then s:=s+1; end; writeln (s);

+3
Ответы (1)
  1. 13 июня, 13:27
    0
    В цикле для каждого значение счетчика 1 < = i < = 10 определяется остаток от деления на 2 и на 3. Если остаток равен 1 при делении на 2 (нечетное число) или остаток равен 0 при делении на 3 (число делится на 3) то переменная s увеличивается на единицу. Таким образом s будет равно числу нечетных чисел и чисел которые делятся на 3 без остатка:

    1, 3, 5, 6, 7, 9.

    Получилось 6 чисел. Для чисел 3 и 9 выполняются оба условия, для остальных по одному.

    Ответ: 6.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Какой будет результат кода? ... S:=0; for i:=1 to 10 do begin m1: = i mod 2; m2: = i mod 3; if (m1=1) or (m2=0) then s:=s+1; end; writeln ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Имеется условный оператор:if D10 then writeln ('ура!') else writeln ('плохо ...'); Какими операторами его можно заменить? Выберите несколько из 4 вариантов ответа: 1) if D=10 then writeln ('ура!') else writeln ('плохо ...
Ответы (1)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=c*m; writeln ('s=', s); readln; end.
Ответы (1)
Определить значение выражения: 1) 10 div 15 2) 10 div 2 3) 10 mod 2 4) 10 mod 17 5) 123 mod 10 6) 123 div 10 7) 1 div 2 8) 123 mod 1000 9) 100 mod 27 div 3 10) 100 div 5 mod 3 11) 98725 div 1000 mod 10 12) 100 mod 5 div 3
Ответы (1)
1. определить значение переменной А после выполнения оператора X:=5; if X>-3 then A:=X mod 2 else A:=abs (X); 2. определить значение переменной А после выполнения оператора X:=-26; Y:=6; if X div Y=4 then A:=X mod Y else A:=X*Y; 3.
Ответы (1)
Program n_1; Var a, b, x, y: real; Begin Writeln ('Введите a') readln (x); Writeln ('Введите b') readln (b); y:=3*x*x+x-4; While x
Ответы (1)
Нужен ответ
1. Назовите город, правитель которого начал Троянскую войну. В каком веке это произошло? 2. Сформулируйте историческую причину начала Троянской войны? 3. Сформулируйте мифологическую причину начало Троянской войны?
Нет ответа
Исторический портрет Владимира Мономаха!
Нет ответа
Используя свойство 3 степеней, запишите в виде степениа) (2^2) ^3 б) (3^4) ^2 в) (3^7) ^2 г) (5^3) ^4 д) (10^3) ^5 е) (7^2) ^4
Нет ответа
Решите уравнение 3x-8 (x+2) = -41
Нет ответа
Дети ходили в лес за грибами и ягодами какие однородные члены предложения и как обозначить?
Нет ответа
Главная » Информатика » Какой будет результат кода? ... S:=0; for i:=1 to 10 do begin m1: = i mod 2; m2: = i mod 3; if (m1=1) or (m2=0) then s:=s+1; end; writeln (s);
Регистрация Забыл пароль