From dc3312c61bdf0ad53b87a9cbe9d96e0721ec9daa Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Wed, 20 Jul 2016 21:04:59 +0300 Subject: [PATCH 01/15] add folder --- babak/calculator | 57 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 57 insertions(+) create mode 100644 babak/calculator diff --git a/babak/calculator b/babak/calculator new file mode 100644 index 0000000..509df28 --- /dev/null +++ b/babak/calculator @@ -0,0 +1,57 @@ +program calculator; +var +operation: integer; +a: integer; +b: integer; +Begin +writeln('Avalible operations'); +writeln('1:a+b'); +writeln('2:a-b'); +writeln('3:a*b'); +writeln('4:a div b'); +writeln('5:a mod b'); +writeln('6:a ^ 2'); +writeln ('Enter operation number'); +readln(operation); +case operation of + 1: + begin + writeln ('Enter operands'); + readln (a,b); + writeln ('Result is ',a+b); + end; + 2: + begin + writeln ('Enter operands'); + readln (a,b); + writeln ('Result is ',a-b); + end; + 3: + begin + writeln ('Enter operands'); + readln (a,b); + writeln ('Result is ',a*b); + end; + 4: + begin + writeln ('Enter operands'); + readln (a,b); + writeln ('Result is ',a div b); + end; + 5: + begin + writeln ('Enter operands'); + readln (a,b); + writeln ('Result is ',a mod b); + end; + 6: + begin + writeln ('Enter operand'); + readln (a); + writeln ('Result is ',a *a); + end; +else + writeln ('Invalid month'); +end; +readln(); +end. \ No newline at end of file From 85ef6f6a40dd6bf467703bb76230278585facaa9 Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Sat, 23 Jul 2016 11:31:52 +0300 Subject: [PATCH 02/15] rename --- babak/calculator | 112 +++++++++++++++++++++++------------------------ 1 file changed, 56 insertions(+), 56 deletions(-) diff --git a/babak/calculator b/babak/calculator index 509df28..5e1ce76 100644 --- a/babak/calculator +++ b/babak/calculator @@ -1,57 +1,57 @@ -program calculator; -var -operation: integer; -a: integer; -b: integer; -Begin -writeln('Avalible operations'); -writeln('1:a+b'); -writeln('2:a-b'); -writeln('3:a*b'); -writeln('4:a div b'); -writeln('5:a mod b'); -writeln('6:a ^ 2'); -writeln ('Enter operation number'); -readln(operation); -case operation of - 1: - begin - writeln ('Enter operands'); - readln (a,b); - writeln ('Result is ',a+b); - end; - 2: - begin - writeln ('Enter operands'); - readln (a,b); - writeln ('Result is ',a-b); - end; - 3: - begin - writeln ('Enter operands'); - readln (a,b); - writeln ('Result is ',a*b); - end; - 4: - begin - writeln ('Enter operands'); - readln (a,b); - writeln ('Result is ',a div b); - end; - 5: - begin - writeln ('Enter operands'); - readln (a,b); - writeln ('Result is ',a mod b); - end; - 6: - begin - writeln ('Enter operand'); - readln (a); - writeln ('Result is ',a *a); - end; -else - writeln ('Invalid month'); -end; -readln(); +program 3.1.2; + var + operation: integer; + a: integer; + b: integer; + begin + writeln('Avalible operations'); + writeln('1:a+b'); + writeln('2:a-b'); + writeln('3:a*b'); + writeln('4:a div b'); + writeln('5:a mod b'); + writeln('6:a ^ 2'); + writeln ('Enter operation number'); + readln(operation); + case operation of + 1: + begin + writeln ('Enter operands'); + readln (a,b); + writeln ('Result is ',a+b); + end; + 2: + begin + writeln ('Enter operands'); + readln (a,b); + writeln ('Result is ',a-b); + end; + 3: + begin + writeln ('Enter operands'); + readln (a,b); + writeln ('Result is ',a*b); + end; + 4: + begin + writeln ('Enter operands'); + readln (a,b); + writeln ('Result is ',a div b); + end; + 5: + begin + writeln ('Enter operands'); + readln (a,b); + writeln ('Result is ',a mod b); + end; + 6: + begin + writeln ('Enter operand'); + readln (a); + writeln ('Result is ',a *a); + end; + else + writeln ('Invalid month'); + end; + readln(); end. \ No newline at end of file From 6809e1444d6eac6600565cb25ea4e7b2fb417b55 Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Sat, 23 Jul 2016 11:43:30 +0300 Subject: [PATCH 03/15] add all files --- babak/diffmaxmin.pas | 35 +++++++++++++++++++++++++++++++++++ babak/leastnumber.pas | 21 +++++++++++++++++++++ babak/prog10.pas | 30 ++++++++++++++++++++++++++++++ babak/prog11.pas | 28 ++++++++++++++++++++++++++++ babak/prog2.pas | 27 +++++++++++++++++++++++++++ babak/prog4 | 35 +++++++++++++++++++++++++++++++++++ babak/prog5 | 40 ++++++++++++++++++++++++++++++++++++++++ babak/prog6 | 16 ++++++++++++++++ babak/prog7 | 16 ++++++++++++++++ babak/prog8 | 20 ++++++++++++++++++++ babak/prog9 | 26 ++++++++++++++++++++++++++ babak/prog9.pas | 26 ++++++++++++++++++++++++++ babak/quater | 20 ++++++++++++++++++++ babak/tile.pas | 19 +++++++++++++++++++ 14 files changed, 359 insertions(+) create mode 100644 babak/diffmaxmin.pas create mode 100644 babak/leastnumber.pas create mode 100644 babak/prog10.pas create mode 100644 babak/prog11.pas create mode 100644 babak/prog2.pas create mode 100644 babak/prog4 create mode 100644 babak/prog5 create mode 100644 babak/prog6 create mode 100644 babak/prog7 create mode 100644 babak/prog8 create mode 100644 babak/prog9 create mode 100644 babak/prog9.pas create mode 100644 babak/quater create mode 100644 babak/tile.pas diff --git a/babak/diffmaxmin.pas b/babak/diffmaxmin.pas new file mode 100644 index 0000000..d57df9f --- /dev/null +++ b/babak/diffmaxmin.pas @@ -0,0 +1,35 @@ +program diffmaxmin; +var +X: integer; +Y: integer; +Z: integer; +M: integer; +L: integer; +D: integer; +Begin +writeln('Enter tree numbers'); +readln(X,Y,Z); + if (XY) then + if (X>Z) then + M:=X + else + M:=Z +else + if (Y>Z) then + M:=Y + else + M:=Z; +D:=M-L; +writeln (D); + readln(); +end. \ No newline at end of file diff --git a/babak/leastnumber.pas b/babak/leastnumber.pas new file mode 100644 index 0000000..41e7463 --- /dev/null +++ b/babak/leastnumber.pas @@ -0,0 +1,21 @@ +program leastnumber; +var +X: integer; +Y: integer; +Z: integer; +Begin +writeln('Enter tree numbers'); +readln(X,Y,Z); + if (X0 then + begin + writeln ('leap-year'); + end + else + begin + if (year mod 400)=0 then + begin + writeln ('leap-year'); + end + else + begin + writeln ('not leap-year'); + end; + end; + end +else + begin + writeln ('not leap-year'); + end; +readln(); +end. \ No newline at end of file diff --git a/babak/prog11.pas b/babak/prog11.pas new file mode 100644 index 0000000..1a11783 --- /dev/null +++ b/babak/prog11.pas @@ -0,0 +1,28 @@ +program prog11; +var +month: integer; +date: integer; +Begin +writeln('Enter month and date'); +readln(month,date); +if (month>12) or (date>7) then + begin + writeln ('wrong data'); + end +else + if (month = 7) then + begin + if (date <=5) then + writeln ('10:00') + else + writeln ('off'); + end + else + begin + if (date <=5) then + writeln ('07:00') + else + writeln ('10:00'); + end; +readln(); +end. \ No newline at end of file diff --git a/babak/prog2.pas b/babak/prog2.pas new file mode 100644 index 0000000..8a0236c --- /dev/null +++ b/babak/prog2.pas @@ -0,0 +1,27 @@ +program prog2; +var + a:integer; + b:integer; + K:integer; + L:integer; + N:integer; + M:real; + O:integer; + P:integer; +Begin +writeln('Enter two numbers'); +readln (a,b); +K:=a+b; +writeln('a + b=',K); +L:=a-b; +writeln('a-b=',L); +N:=a*b; +writeln('a*b=',N); +M:=a/b; +writeln('a/b=',M:0:1); +O:=a div b; +writeln('a div b=',O); +P:= a mod b; +writeln('a mod b=',P); +readln(); +end. \ No newline at end of file diff --git a/babak/prog4 b/babak/prog4 new file mode 100644 index 0000000..883dab1 --- /dev/null +++ b/babak/prog4 @@ -0,0 +1,35 @@ +program prog4; +var + date: integer; + month: integer; +Begin +writeln('Enter date and month'); +readln( date, month); + Begin + if (month > 2) and (month < 11) and (date < 31) then + begin + writeln (date+1 , month); + end + else + begin + writeln (date=1, month+1); + end; + if (month=2) and (date<28) then + begin + writeln (date+1, month); + end + else + begin + writeln (date=1, month+1); + end; + if (month =2) and (date >28) then + begin + writeln('wrong date'); + end; + if (month > 2) and (month < 11) and (date > 31) then + begin + writeln ('wrong date') + end; + end; +readln(); +end. \ No newline at end of file diff --git a/babak/prog5 b/babak/prog5 new file mode 100644 index 0000000..74f5737 --- /dev/null +++ b/babak/prog5 @@ -0,0 +1,40 @@ +program prog5; +var + month : integer; + year : integer; +Begin +writeln('Enter month and year'); +readln(month, year); + if (month=1) or (month=3) or (month=5)or (month=7)or (month=8)or (month=10)or (month=12) then + begin + writeln ('on this month 31 days'); + end; + if (month= 4) or (month=6)or (month=9)or (month=11) then + begin + writeln ('on this month 30 days'); + end; + if (month=2) then + if (year mod 4)=0 then + begin + if (year mod 100)<>0 then + begin + writeln ('29'); + end + else + begin + if (year mod 400)=0 then + begin + writeln ('29'); + end + else + begin + writeln ('28'); + end; + end; + end + else + begin + writeln ('you put wrong month'); + end; + readln(); +end. \ No newline at end of file diff --git a/babak/prog6 b/babak/prog6 new file mode 100644 index 0000000..2f66516 --- /dev/null +++ b/babak/prog6 @@ -0,0 +1,16 @@ +program prog6; +var +A: integer; +Begin +writeln('Enter number'); +readln(A); + if (A mod 2)=0 then + writeln ('even') +else + writeln ('uneven'); + if (A mod 10)=0 then + writeln ('round') + else + writeln ('not round'); +readln(); +end. \ No newline at end of file diff --git a/babak/prog7 b/babak/prog7 new file mode 100644 index 0000000..16a56ce --- /dev/null +++ b/babak/prog7 @@ -0,0 +1,16 @@ +program prog7; +var +A: integer; +Begin +writeln('Enter your age'); +readln(A); + if (A<0) then + writeln ('in the plans'); + if (A>=0) and (A<=18) then + writeln ('young'); + if (A>18) and (A<=49) then + writeln('young and beautiful'); + if (A>49) then + writeln ('old'); +readln(); +end. \ No newline at end of file diff --git a/babak/prog8 b/babak/prog8 new file mode 100644 index 0000000..7f4807f --- /dev/null +++ b/babak/prog8 @@ -0,0 +1,20 @@ +program prog8; +var +X: integer; +Y: integer; +Z: integer; +Begin +writeln('Enter tree numbers'); +readln(X,Y,Z); + if (X>Y) then + if (X>Z) then + writeln (X, '- the biggest') + else + writeln (Z, '-the biggest') +else + if (Y>Z) then + writeln(Y, '- the biggest') + else + writeln (Z, '- the biggest'); + readln(); +end. \ No newline at end of file diff --git a/babak/prog9 b/babak/prog9 new file mode 100644 index 0000000..791ca77 --- /dev/null +++ b/babak/prog9 @@ -0,0 +1,26 @@ +program prog9; +var +h: integer; +m: integer; +Begin +writeln('Enter the time'); +readln(h,m); +if (m<=58) then + begin + m:= m+1; + end +else + begin + m:=0; + if h<=22 then + begin + h:=h+1; + end + else + begin + h:=0; + end; + end; +writeln(h,' ', m); + readln(); +end. \ No newline at end of file diff --git a/babak/prog9.pas b/babak/prog9.pas new file mode 100644 index 0000000..791ca77 --- /dev/null +++ b/babak/prog9.pas @@ -0,0 +1,26 @@ +program prog9; +var +h: integer; +m: integer; +Begin +writeln('Enter the time'); +readln(h,m); +if (m<=58) then + begin + m:= m+1; + end +else + begin + m:=0; + if h<=22 then + begin + h:=h+1; + end + else + begin + h:=0; + end; + end; +writeln(h,' ', m); + readln(); +end. \ No newline at end of file diff --git a/babak/quater b/babak/quater new file mode 100644 index 0000000..b196960 --- /dev/null +++ b/babak/quater @@ -0,0 +1,20 @@ +program quater; +var +month: integer; +Begin +writeln('Enter month'); +readln(month); +case month of + 1,2,3: + writeln ('The first quater'); + 4,5,6: + writeln ('The second quater'); + 7,8,9: + writeln ('The third quater'); + 10,11,12: + writeln ('The fourth quater') +else + writeln ('Invalid month'); +end; +readln(); +end. \ No newline at end of file diff --git a/babak/tile.pas b/babak/tile.pas new file mode 100644 index 0000000..c321db0 --- /dev/null +++ b/babak/tile.pas @@ -0,0 +1,19 @@ +program tile; +var +N:integer; + +Begin +writeln('Enter the number of tiles'); +readln(N); +if (N mod 2)=0 then + begin + writeln ('black ',N div 2); + writeln ('white ',N div 2); + end +else + begin + writeln ('black ',N div 2+1); + writeln ('white ', N div 2); + end; +readln(); +end. \ No newline at end of file From 9660e7e6fbec5287f4ab63177967b55d2bff52cb Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Tue, 26 Jul 2016 19:58:27 +0300 Subject: [PATCH 04/15] best wishes --- babak/best_wishes.pas | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 babak/best_wishes.pas diff --git a/babak/best_wishes.pas b/babak/best_wishes.pas new file mode 100644 index 0000000..010c5c2 --- /dev/null +++ b/babak/best_wishes.pas @@ -0,0 +1,24 @@ +program best_wishes; +uses CRT; + var + i:integer; + indent:string; + begin + indent:=''; + for i:=1 to 20 do + begin + textcolor(i); + if i=16 then + begin + textcolor (i-12); + writeln(indent,i,' Nadia,you are kind, honest and purposeful person. You will be able to achive all your goals'); + end + else + begin + writeln(indent,i,' Nadia,you are kind, honest and purposeful person. You will be able to achive all your goals'); + end; + indent:=indent+ ' '; + Delay (500); + end; + readln(); + end. \ No newline at end of file From 8724a829db6debd6a1157cb785838c94de9372ff Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Tue, 26 Jul 2016 20:01:28 +0300 Subject: [PATCH 05/15] rename --- babak/best_wishes.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/babak/best_wishes.pas b/babak/best_wishes.pas index 010c5c2..05e7a1c 100644 --- a/babak/best_wishes.pas +++ b/babak/best_wishes.pas @@ -1,4 +1,4 @@ -program best_wishes; +program 4.1; uses CRT; var i:integer; From a565e75443b9e2cae16b13bf2c8de81963b10714 Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Wed, 27 Jul 2016 00:14:19 +0300 Subject: [PATCH 06/15] task 4.3 --- babak/task_4_3.pas | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 babak/task_4_3.pas diff --git a/babak/task_4_3.pas b/babak/task_4_3.pas new file mode 100644 index 0000000..c5fda66 --- /dev/null +++ b/babak/task_4_3.pas @@ -0,0 +1,27 @@ +program task_4_3; +uses crt; + var + i:integer; + k:integer; + n:integer; + indent:string; + begin + k:=2; + n:=4; + indent:=''; + for i:=1 to 20 do + begin + if (i mod 2)= 0 then + begin + textcolor (k); + end + else + begin + textcolor (n); + end; + writeln(indent,i,' Nadia,you are kind, honest and purposeful person. You will be able to achive all your goals'); + end; + indent:=indent+ ' '; + Delay (500); + readln(); + end. \ No newline at end of file From ebff938a364ea01c26c39cb55b4ca4144680470d Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Wed, 27 Jul 2016 00:39:53 +0300 Subject: [PATCH 07/15] 4_4 --- babak/task_4_4.pas | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 babak/task_4_4.pas diff --git a/babak/task_4_4.pas b/babak/task_4_4.pas new file mode 100644 index 0000000..77b5657 --- /dev/null +++ b/babak/task_4_4.pas @@ -0,0 +1,20 @@ +program task_4_4; +uses crt; + var + i:integer; + k:integer; + indent:string; + begin + indent:=''; + for i:=1 to 20 do + begin + for k:=1 to 3 do + begin + textcolor (i); + writeln(indent,i,' Nadia,you are kind, honest and purposeful person. You will be able to achive all your goals'); + indent:=indent+ ' '; + Delay (500); + end; + end; + readln(); + end. \ No newline at end of file From 60e53c2ef564ad7cd2139fcb35edc441c88f687a Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Sat, 30 Jul 2016 01:27:38 +0300 Subject: [PATCH 08/15] fibonacci --- babak/task5_2.pas | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 babak/task5_2.pas diff --git a/babak/task5_2.pas b/babak/task5_2.pas new file mode 100644 index 0000000..6abe6d4 --- /dev/null +++ b/babak/task5_2.pas @@ -0,0 +1,23 @@ +program task5_2; +var +i:integer; +n:integer; +a:integer; +b:integer; +c:integer; +begin + writeln ('Enter n'); + readln (n); + a:=1; + writeln (a,' '); + b:=1; + writeln(b,' '); + for i:=3 to n do + begin + writeln (a+b, ' '); + c:=b; + b:=a+b; + a:=c; + end; + readln (); +end. \ No newline at end of file From 50023231736945e7e1980627ce78b7dba85bbfda Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Sat, 30 Jul 2016 01:45:07 +0300 Subject: [PATCH 09/15] max,mim,avr --- babak/task5_4_1.pas | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 babak/task5_4_1.pas diff --git a/babak/task5_4_1.pas b/babak/task5_4_1.pas new file mode 100644 index 0000000..f68102c --- /dev/null +++ b/babak/task5_4_1.pas @@ -0,0 +1,30 @@ +program task5_4_1; +var +a:integer; +sum:integer; +count:integer; +max:integer; +min:integer; +avr:real; +begin + count:=0; + writeln ('Enter number'); + repeat + count:=count+1; + readln (a); + if count = 1 then + max:=a; + min:=a; + if a >max then + max:=a; + if a < min then + min:=a; + sum := 0; + sum := sum+a; + avr:=sum/count; + until a=0; + writeln ('Min value is ', min); + writeln ('Max value is ', max); + writeln ('Average value is ', avr); + readln(); +end. \ No newline at end of file From ac114e11d695325430e57fef7065e01789db8af2 Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Sat, 30 Jul 2016 01:59:49 +0300 Subject: [PATCH 10/15] you win! --- babak/task5_5.pas | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 babak/task5_5.pas diff --git a/babak/task5_5.pas b/babak/task5_5.pas new file mode 100644 index 0000000..02fe401 --- /dev/null +++ b/babak/task5_5.pas @@ -0,0 +1,22 @@ +program task5_5; +var + a: integer; + c: integer; +begin + randomize; + a := random(100); + writeln('Enter number: '); + readln(c); + while a <> c do begin + writeln('Enter number: '); + readln(c); + if c > a then + writeln('<') + else + if c < a then + writeln('>') + else + writeln('You win'); + end; +readln(); +end. \ No newline at end of file From ad103dbaee3a578a4caa35db096f95ffdf012f12 Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Sat, 30 Jul 2016 11:11:21 +0300 Subject: [PATCH 11/15] avr --- babak/task5_4_1.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/babak/task5_4_1.pas b/babak/task5_4_1.pas index f68102c..82d72a2 100644 --- a/babak/task5_4_1.pas +++ b/babak/task5_4_1.pas @@ -25,6 +25,6 @@ until a=0; writeln ('Min value is ', min); writeln ('Max value is ', max); - writeln ('Average value is ', avr); + writeln ('Average value is ', avr:0:2); readln(); end. \ No newline at end of file From 5811eeb3223ac965bf210e175da607dafff164b0 Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Sat, 30 Jul 2016 12:22:49 +0300 Subject: [PATCH 12/15] longint --- babak/task5_2.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/babak/task5_2.pas b/babak/task5_2.pas index 6abe6d4..f902adf 100644 --- a/babak/task5_2.pas +++ b/babak/task5_2.pas @@ -2,9 +2,9 @@ var i:integer; n:integer; -a:integer; -b:integer; -c:integer; +a:longInt; +b:longInt; +c:longInt; begin writeln ('Enter n'); readln (n); From 37916af69099034b996d82810a4f9b133b942069 Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Sun, 31 Jul 2016 21:48:29 +0300 Subject: [PATCH 13/15] sum --- babak/task6_2.pas | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 babak/task6_2.pas diff --git a/babak/task6_2.pas b/babak/task6_2.pas new file mode 100644 index 0000000..2d696e5 --- /dev/null +++ b/babak/task6_2.pas @@ -0,0 +1,18 @@ +program task6_2; +uses crt; +var +i:integer; +n:integer; +sum:integer; +begin + randomize; + sum:=0; + for i:=1 to 30 do + begin + n:= random (50)+1; + sum:=sum+n; + writeln(n); + end; + writeln ('Sum is ', sum); + readln(); +end. \ No newline at end of file From 3d151d497c8f335bff7e0424ded572c0a3897dd1 Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Tue, 2 Aug 2016 21:39:13 +0300 Subject: [PATCH 14/15] it was easy --- babak/task6_2a.pas | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 babak/task6_2a.pas diff --git a/babak/task6_2a.pas b/babak/task6_2a.pas new file mode 100644 index 0000000..56eae76 --- /dev/null +++ b/babak/task6_2a.pas @@ -0,0 +1,17 @@ +program task6_2a; +uses crt; +var +i:integer; +n:integer; +sum:integer; +begin + randomize; + sum:=0; + for i:=1 to 30 do + begin + n:= random (50)+1; + sum:=sum+n; + writeln(n, 'Sum:',sum); + end; + readln(); +end. \ No newline at end of file From 7e68f094d869d6bc162bd958a6018d5ce7e4379e Mon Sep 17 00:00:00 2001 From: Nadiia Babak Date: Tue, 2 Aug 2016 21:53:27 +0300 Subject: [PATCH 15/15] =?UTF-8?q?=D1=82=D0=B0=D0=B1=D0=BB=D0=B8=D1=86?= =?UTF-8?q?=D0=B0=20=D1=83=D0=BC=D0=BD=D0=BE=D0=B6=D0=B5=D0=BD=D0=B8=D1=8F?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- babak/task6_4.pas | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 babak/task6_4.pas diff --git a/babak/task6_4.pas b/babak/task6_4.pas new file mode 100644 index 0000000..d63c26c --- /dev/null +++ b/babak/task6_4.pas @@ -0,0 +1,13 @@ +program task6_4; +uses crt; +var i,j,k: integer; +begin +for i:=1 to 10 do begin +for j:=1 to 10 do begin +k:=j*i; +writeln(i, '*', j, '=',k); +end; +writeln; +end; +readln(); +end. \ No newline at end of file