#!/bin/bash
a=$true
while ($a)
do
clear
echo "1. Enter path"
echo "2. Enter file extension"
echo "3. Copy file"
echo "4. Exit"
read VAR
clear
if [[ $VAR -eq 1 ]]
then
echo "enter path"
read path
read -p "Нажмите ENTER для продолжения"
fi
if [[ $VAR -eq 2 ]]
then
echo "Enter file extension"
read fex
cd $path
ls *.$fex
read -p "Нажмите ENTER для продолжения"
fi
if [[ $VAR -eq 3 ]]
then
echo "enter path to copy file"
read pathcopy
cp -R $path/*.$fex $pathcopy
read -p "Нажмите ENTER для продолжения"
fi
if [[ $VAR -eq 4 ]]
then
echo "Exit"
read -p "Нажмите ENTER для продолжения"
let "a=false"
fi
done
Объяснение:
а я разве их не решал
но ладнооо
1)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);
i:=1;
repeat
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.
2 я не знаю как решать
3)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
writeln(x);
end.
4)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka)-1 do
for k:=1 to length(stroka)-i do if mas[k]=mas[k+1] then x:=x+1;
if x>0 then writeln('TRUE')
else writeln('FALSE');
end.