Question

Помогите программу в паскале составить

Программа выводит на экран  таблицу пифагора и вычисляет количество нечетных чисел

Answer 1

var i, k, j:byte;
   
begin
   k:=0;
   for i:=1 to 20 do
      begin
      for j:=1 to 20 do
      begin
      write(i*j:4);
      if i*j mod 2<>0 then inc(k);
      end;
      writeln;
      end;
   writeln('Количество нечетных чисел=', k); 
end.