1 программа:
var a, sum:integer;
begin
writeln('Введите числа (цифра 0 - выход из программы)');
sum:= 0;
readln(a);
while(a <> 0) do begin
sum:= sum + a;
readln(a);
end;
writeln('Сумма чисел = ', sum);
end.
2 программа:
var a, sum:integer;
begin
a:=0;
while(a <= 100) do begin
if (a mod 2 = 0) then
sum:= sum + a;
a:= a + 1;
end;
writeln('Сумма четных чисел = ', sum);
end.
3 программа:
var a, i, N:integer;
begin
writeln('Введите N');
readln(N);
a:=1;
for i:=1 to N do begin
write(a*a, ' ');
a:= a + 1;
end;
end.
#!/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
Объяснение: