Таблица умножения

  1. #!/usr/bin/perl
  2.  
  3. use CGI::Carp qw(fatalsToBrowser);
  4. print "Content-type: text/plain; charset=utf-8\n\n";
  5. $x=0;
  6. open(LOG,">>tabl.txt");
  7. while($x<10) {
  8. $x++;
  9.  
  10.    print(LOG "тaблицa yмнoжeния нa $x\n\n");
  11. $y=1;
  12. while($y<10) {
  13. $z=$x*$y;
  14.    print(LOG "\t $x X $y = $z\n");
  15. $y++;
  16. }
  17. }
  18. print "ok\n";
  19. close(LOG);
Сегодня плимяннику надо была таблица умнажения найти не смогла,проще самой написать было.

Реклама

Мы в соцсетях

tw tg yt gt