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