Program z_1; var i : integer; s : string; begin s : = 1; for i : = 10 to 99 do if (i mod 13 = 0) and (i mod 2 < > 0) then s : = s * i; writeln('proizvedenie = ',s); readln; end. дана объяснить три строки: s : = 1; for i : = 10 to 99 do if (i mod 13 = 0) and (i mod 2 < > 0) then
112
419
Ответы на вопрос:
S: =1; - переменной s присваивается начальное значение 1 for i : = 10 to 99 do - начало цикла с параметром, i - параметр цикла, 10 - начальное значение параметра, 99 - конечное значение параметра. т.е. цикл будет выполняться 90 раз, параметр i будет принимать последовательно значения 10, 11, 12, 99.if (i mod 13 = 0) and (i mod 2 < > 0) then - условный оператор. в условии используется операция mod - определение остатка от целочисленного деления. (i mod 13 = 0) - это условие будет выполняться для чисел, которые делятся на 13 без остатка; (i mod 2 < > 0) - это условие будет выполняться для чисел, которые делятся на 2 с остатком (это нечетные числа). таким образом, условие (i mod 13 = 0) and (i mod 2 < > 0) будет иметь значение true для нечетных чисел, которые делятся на 13 без остатка (это 13, 39, 65, 91).программа в целом вычисляет произведение нечетных чисел, которые делятся на 13 без остатка. (в программе есть ошибка. тип переменной s должен быть integer.)
Var s: integer; x: real; begin repeat begin write('сколько всего журавликов сделали: '); readln(s); if s mod 6< > 0 then writeln('они не могли сделать столько, противоречит условию') end until s mod 6=0; x: =s/6; writeln('петя и сережа сделали каждый по ',x); writeln('катя сделала ',4*x) end.
Популярно: Информатика
-
silverking06.04.2020 10:38
-
tumanovamariam07.11.2021 16:47
-
ударник4г05.02.2023 17:43
-
nenovaolya24.01.2020 20:38
-
Танюха141008.02.2021 07:48
-
vladkanter22.01.2023 06:37
-
опалссио26.04.2022 18:06
-
dan4ikqwerty22.06.2020 12:18
-
МаксимФадеев26.07.2020 20:25
-
керамбит111.11.2022 12:12