Разработайте программу, которая вводит из файла, имя которого определяется в командной строке, слова и помещает их в два линейных односвязных списка : в первой - четные по порядку слова, во второй - нечетные. Затем находит в этих списках одинаковые слова и, если такие есть, удаляет их из списков. Слова из первого списка вывести в стандартный поток вывода, из второго - в файл, имя которого также определяется в командной строке. Решать на паскале решить подробно расписать весь ход решения
1)a=int(input("Введите первое число"))
b=int(input("Введите второе число"))
c=int(input("Введите третье число"))
if((b>a)and(c>a)and(a/2 in range(1,100000000,1))):
print(f"Среди трёх введеных чисел минимальным чётным является{a}")
elif((a>b)and(c>b)and(b/2 in range(1,100000000,1))):
print(f"Среди трёх введеных чисел минимальным чётным является{b}")
elif((b>c)and(a>c)and(c/2 in range(1,100000000,1))):
print(f"Среди трёх введеных чисел минимальным чётным является{c}")
2)a=int(input("Введите длину отверстия"))
b=int(input("Введите ширину отверстия"))
c=int(input("Введите высоту отверстия"))
d=int(input("Введите длину кирпича"))
e=int(input("Введите ширину кирпича"))
f=int(input("Введите высоту кирпича"))
if((a>=d)and(b>=e)and(c>=f)):
print("Кирпич влезет")
else:
print("Кирпич не влезет")
3)a=str(input())
i=0
e=0
b=["1","2","3","4","5","6","7","8","9","0"]
while(1==1):
if(a[i:i+1] in b):
e=e+1
else:
break
i=i+1
print(e)
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении