Маляры - женщины, вот и получается, что у маляров есть брат Иван, а у Ивана нет братьев, а есть только сёстры
Var
i,n:integer;
begin
write('Write n: '); readln(n);
for i:=10 to 99 do
if (i mod n=0) or ((i div 10=n) or (i mod 10=n))
then writeln(i,' ');
readln
end.
44.1 Кгц=44100 гц
5 мин=300сек
44100*16*300=216680000бит/8=26460000 байт/1024=25839,84 Кб/1024=25,23 Мб
Var
n,e,d,s,sum: integer;
begin
writeln ('vvedi cislo n');
read (n);
if (n<100) or (n>999) then writeln ('False');
if (n>100) and (n<999) then
begin
e:= (n mod 10);
writeln ('e',e);
s:=(n div 100);
writeln ('s',s);
d:=(n div 10)-s*10;
writeln ('d',d);
sum:=s+d+e;
writeln ('sum',sum);
if sum=13 then writeln ('Enter')
else
writeln ('Lock');
end;
end.
Ответ: 1-Г, 2-В, 3-Д, 4-А, 5-Б
Объяснения.
1. Со значением х=1 входим в цикл, который должен выполняться, пока х меньше 10. Но х в теле цикла не изменяется, поэтому цикл будет бесконечным.
2. Со значением х=1 входим в цикл, который должен выполняться, пока х равен 1. В теле цикла х наращивается на 1, поэтому цикл даже второй раз не будет выполняться.
3. Конструкция 0<x<10 недопустима синтаксически.
4. Со значением х=1 пытаемся войти в цикл. В заголовке указано, что цикл выполняется, пока х отрицательный. Следовательно, цикл не будет выполняться вообще.
5. Со значением х=0 входим в цикл, который должен выполняться, пока х не превысит 5. В теле цикла х наращивается на 1, т.е. х будет принимать значения 1,2,3,4,5,6 и при х=6 цикл завершится. Получается, что тело цикла выполнится 6 раз.
