Ответ:
66 лет
Объяснение:
program Owl;
var
n: Integer;
begin
for n := 10 to 99 do
if ((n mod 6 = 0) xor (n mod 10 = 2)) and ((n > 32) xor (n mod 10 = 5)) and ((n mod 11 = 0) xor (n < 33)) then
WriteLn (n);
ReadLn;
end.
Var
x, y: integer;
begin
//вводим x и y
readln(x);
readln(y);
//проверяем x
if (x >= 0) and (x<=20) then
writeln('X принадлежит')
else
writeln('X не принадлежит');
//проверяем y
if (y >= 0) and (y<=20) then
writeln('Y принадлежит')
else
writeln('Y не принадлежит');
<span>end.</span>
Var
n:integer;
begin
n:=20;
while n<=320 do begin
Write(n,' ');
n:=2*n
end
end.
Результат работы
20 40 80 160 320
19,29,39,49,59,69,79,89,99,109,129
Название книги автор жанр
Дюймовочка Андерсен Х.К. сказки
Серебрянное копытце Бажов П.П. сказки
Мишкина каша Носов Н. рассказы
Сказка о потеренном времени Шварц Е. сказка
Ну, погоди Камов Ф. Курляндский А.
Хайт А. сказка по мультфильму