add novikov folder

novikov/7_4.pas

@@ -0,0 +1,33 @@
+program PrimeNumber;
+var
+	number: Integer;
+	Prime: Boolean;
+	i:Integer;
+	res:Integer;
+begin
+	writeln('Please enter the number');
+	readln(number);
+	res:= 1;
+
+	for i := 2 to (number - 1) do
+	begin
+		res:= number mod i;
+		if res = 0 then
+		begin
+		Prime:= False;
+		break;
+		end
+
+		else
+		Prime:= True;
+	end;
+
+	write('The number is');
+	if Prime = False then
+		write(' not prime')
+	else
+		write(' prime');
+
+	readln();
+
+end.

novikov/P_10_1.pas

@@ -0,0 +1,33 @@
+program P_10_1;
+var
+	arr1: array[1..10] of Integer;
+	i:Integer;
+begin
+	writeln('Enter 10 numbers');
+
+	for i := 1 to Length(arr1) do
+	begin
+		readln(arr1[i]);
+	end;
+
+	for i := Length(arr1) downto 1 do
+	begin
+		writeln(arr1[i]);
+	end;
+
+	for i := Length(arr1) downto 1 do
+	begin
+		if (arr1[i] mod 2) > 0 then
+		begin
+		writeln(arr1[i]);
+
+		end;
+
+	end;
+
+	for i := 0 to Length(arr1) do
+	begin
+		write(arr1[i]);
+	end;
+
+end.

novikov/P_10_2.pas

@@ -0,0 +1,26 @@
+program P_10_2;
+var
+	s: String;
+	letter: String;
+	i: Integer;
+	j: Integer;
+begin
+	letter:= 'a';
+	j:= 0;
+
+	writeln('Please enter the text');
+	readln(s);
+
+	for i := 0 to Length(s) do
+	begin
+		write(s[i],s[i]);
+	end;
+
+	for i := 0 to Length(s) do
+	begin
+		if s[i] = letter then
+		j:= j + 1;
+	end;
+	writeln();
+	writeln(letter,' was ',j,' times');
+end.

novikov/P_10_3.pas

@@ -0,0 +1,51 @@
+program P_10_2;
+var
+	s: String;
+
+procedure WriteDouble(s:String);
+var
+	i: Integer;
+
+begin
+	writeln('Double:');
+	for i := 0 to Length(s) do
+		begin
+			write(s[i],s[i]);
+		end;
+
+
+end;
+
+procedure CountLetterA(a:String);
+var
+	letter: String;
+	i: Integer;
+	count:Integer;
+begin
+	letter:= 'a';
+	count:= 0;
+
+	for i := 0 to Length(s) do
+		begin
+			if s[i] = letter then
+			count:= count + 1;
+		end;
+	writeln();
+	writeln('A count:');
+	writeln(letter,' was ',count,' times');
+
+end;
+
+
+begin
+
+	writeln('Please enter the text');
+	readln(s);
+
+	WriteDouble(s);
+	writeln();
+	CountLetterA(s);
+
+	readln();
+
+end.

novikov/age.pas

@@ -0,0 +1,37 @@
+program AgeCheck;
+var
+	Age: Integer;
+	message: String;
+begin
+	writeln('Please enter the age of a person');
+	readln(Age);
+
+	if Age > 0 then
+	begin
+	writeln('Ok!');
+		if Age < 50 then
+		begin
+			if Age < 16 then
+				begin
+				message := 'Person is young';
+				end
+			else
+				begin
+				message := 'Person is grown-up';
+				end
+		end
+
+		else 
+			message := 'Person is old';
+		end
+
+	else 
+	begin
+	writeln('He is not born yet');
+	end;
+
+
+	writeln(message);
+	readln();
+
+end.

novikov/belltime.pas

@@ -0,0 +1,26 @@
+program  BellTime;
+var
+	Bell: String;
+	day: Integer;
+	month: Integer;
+begin
+	writeln('Could you please input day of the week');
+	readln(day);
+
+	writeln('Could you please input month');
+	readln(month);
+
+
+	if month <> 7 then
+		begin
+			if day <= 6 then
+			Bell := '7:30'
+			else Bell := '10:00'
+
+		end
+
+	else Bell := 'No alarm for today';
+
+	writeln(Bell);
+
+end.

novikov/car_diesel.pas

@@ -0,0 +1,119 @@
+program CarDiesel;
+var
+	age: Integer;
+	volume: Integer;
+	price: Integer;
+	multiplier: Real;
+	multiplier_index1: Integer;
+	multiplier_index2: Integer;
+	tax: Real;
+	import_fee: Real;
+	sum: Real;
+	VAT: Real;
+
+begin
+	writeln('Please input the age of a car');
+	readln(age);
+
+	writeln('Please input the volume of engine of a car');
+	readln(volume);
+
+	writeln('Please input the price of a car');
+	readln(price);
+
+
+
+	if age < 5 then
+		begin
+			if age < 1 then
+			begin
+				multiplier_index1 := 1
+			end
+			else
+			begin
+				multiplier_index1 := 2
+			end
+		end
+	else
+		begin
+			multiplier_index1 :=3
+		end;
+
+
+
+
+	if volume < 2500 then
+		begin
+			if age < 1500 then
+			begin
+				multiplier_index2 := 1
+			end
+			else
+			begin
+				multiplier_index2 := 2
+			end
+		end
+	else
+		begin
+			multiplier_index2 :=3
+		end;
+
+
+	if (multiplier_index1 = 1) and (multiplier_index2 = 1) then
+	begin
+		multiplier := 0.05;
+	end;
+
+		if (multiplier_index1 = 1) and (multiplier_index2 = 2) then
+	begin
+		multiplier := 1.36;
+	end;
+
+		if (multiplier_index1 = 1) and (multiplier_index2 = 3) then
+	begin
+		multiplier := 1.63;
+	end;
+
+
+
+	if (multiplier_index1 = 2) and (multiplier_index2 = 1) then
+	begin
+		multiplier := 0.16;
+	end;
+
+		if (multiplier_index1 = 2) and (multiplier_index2 = 2) then
+	begin
+		multiplier := 1.91;
+	end;
+
+		if (multiplier_index1 = 2) and (multiplier_index2 = 3) then
+	begin
+		multiplier := 2.18;
+	end;
+
+
+
+	if (multiplier_index1 = 3) and (multiplier_index2 = 1) then
+	begin
+		multiplier := 1.09;
+	end;
+
+		if (multiplier_index1 = 3) and (multiplier_index2 = 2) then
+	begin
+		multiplier := 2.72;
+	end;
+
+		if (multiplier_index1 = 3) and (multiplier_index2 = 3) then
+	begin
+		multiplier := 3.54;
+	end;
+
+tax := price * 0.1;
+import_fee := multiplier * volume;
+sum := price + tax + import_fee;
+VAT := sum * 0.1;
+
+writeln('Tax is ', tax:0:2, ' euro, ', 'Import fee is ', import_fee:0:2, ' euro, ', 'Sum is ', sum:0:2, ' euro, ', 'VAT is ', VAT:0:2, ' euro');
+readln();
+
+end.

novikov/comparison.pas

@@ -0,0 +1,31 @@
+program Comparison;
+var
+	x: Integer;
+	y: Integer;
+	z: Integer;
+
+begin
+	writeln('Please input three numbers');
+	readln(x, y, z);
+
+
+	if (x > y) and (x > z) then
+	begin
+	writeln(X,' is a maximum number');
+	readln();		
+	end
+	else
+		begin
+			if y > z then
+			begin
+				writeln(Y, ' is a maximum number');
+				readln();
+			end
+			else
+			begin
+				writeln(Z, ' is a maximum number');
+				readln();
+			end
+		end;
+
+end.

novikov/condition.pas

@@ -0,0 +1,21 @@
+program Condition;
+var
+	I: Integer;
+	J: Integer;
+
+begin
+	I:= 10;
+	J:= 15;
+
+	if(I > J) 
+	then writeln('I ',I)
+	else writeln('J ',J);
+
+	if(J < 3) then
+		begin
+			J:= J+3;
+			writeln(J);
+		end;
+
+	readln()
+end.