Если в Паскале, и первый пример всё же 1x2, то такая программа:
var
a,b: integer;
begin
a := 1;
b := 2;
while a<=9 do
begin
writeln(a,'x',b,'=',a*b);
a := a + 1;
end;
end.
4 числа: 1,2,7,8
не читать после ответа, тут срач
1)var a,b,i:integer;
begin
readln(a,b);
for i:= 1 to 100 do
if (i mod a<>0) and (i mod b<>0) then write(i,' ')
<span> end.
2)</span>var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:= a to b do
if (i mod 7=0) xor (i mod 9=0) then k:=k+1;
write(k)<span>
end.
3)</span>var pol,i,otr,a:integer;
begin
otr:=0;
pol:=0;
for i:= 1 to 10 do
begin
readln(a);
if a>0 then pol:=pol+1;
if a<0 then otr:=otr+1
end;
if pol>otr then write('Положительных больше');
if otr>pol then write('Отрицательных больше')<span>
end.
4) </span>var i,a,b:integer;
begin
readln(a,b);
for i:= a to b do
if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ')
<span>end.</span>
Ослеп, а уже выдает себя за колдуна
Умный человек быстро старится
Каждый глупец глуп на свой лад
Старый бамбук даст молодые побеги
Молодой ум что облачко на ветру
Никто не уйдет от справедливого воздаяния
Жалобы былинки не остановят тайфуна
Тиграм и оленям вместе не гулять
Лучше быть умным слугой, чем глупым хозяином
Голова большая, а глупая
Девять человек все равно что десяток
Когда много свах, вечером приходится ложиться спать одному
Стар, а все еще хочет в детский барабан бить
Когда змее хорошо, лягушке плохо
Делай коромысло себе по плечу
Плохой танцор говорит, что земля неровная
Можно избавиться от болезни, но от судьбы не избавишься
Когда ты здесь - тебя ругают, уйдешь - тебя жалеют
Малые ветры, собравшись воедино, образуют тайфун
Увидел, что мягко, - и копает
Где кончается ум, там начинается глупость
Пагода ветхая, да Будда в ней золотой
Сбежал из силка, а попал в капкан
И святые любят деньги