Const N=11;
var i,d,k:integer;
begin
k:=0;
repeat
k:=k+N;
d:=0;
for i:=2 to 10 do if k mod i = 1 then d:=d+1;
until (d=9) or (K>32000);
if d=9 then writeln('Искомое число = ',K)
else writeln('Число не найдено');
<span>end.</span>
2.4 Ответ 4
Так как Х больше двух и не равен 3. Остаётся только 4.
В 2.5 я вопроса не понимаю
Должно быть так:
If a > 0 then a:=3 else a:=4; - лишняя запятая
If 10 = z then z:=z+1 else z:= 1; - лишнее двоеточие
В последнем операторе возможны различные варианты, но
выбрать один нельзя, не зная исходной формулы.
Вот варианты:
If k > 0 then writeln ('да') else if k<0 then writeln ('нет');
If k > 0 then writeln ('да') else writeln ('нет')
кодировка символов:
0 1
/ \ / \
0 1 0 1 H
O \ Л ответ Л=10
1
C