Uses crt;
var a:integer;
begin
writeln('Введите число');
read(a);
if Length(inttostr(a))=2 then a:=a+18;
writeln(a);
<span>end.</span>
Он бы завоевал мир и выгнал бы людей с земли, или сделал их рабами, даже сейчас заметно как компьютер завоевывает мир. Даже не умея думать и говорить.
1. Видимо 2 круга никак не пересекающихся друг с другом, один для чет другой для нечет
2. Предикат : все четные числа состоят из множества всех чисел минут множество всех нечетных чисел
Uses crt;
var i,n:integer;
begin
readln(n);
for i:=1 to 9 do
writeln(i,'x',n,'=',i*n);
end.
12:2=6 раз в году рожает крольчих
10 * 6=60 детёнышей в год