1. Туда 1 мальчик и 1 взрослый. НАзад 1 взрослый.
2) Туда 1 мальчик 1 взрослый. НАзад 1 мальчик.
3) Туда мальчик и взрослый
1. Создаешь папку BOX
2.В папке BOX папку LETTER
3. В папке LETTER создаешь текстовый документ peter.txt и kate.txt
4.В папке LETTER создаешь папку WORK
5. В папке WORK создаешь текстовый документ april.txt и may.txt
6. В папке LETTER создаешь папку FREND
7. В папке FREND создаешь папку SCHOOL
8. В папке SCHOOL создаешь текстовый документ mary.txt
9. В папке FREND создаешь текстовый документ sport.txt
<u><em>PascalABC.Net:</em></u>
procedure GetData(var a,b:longint; var k:char);
{ ввод исходных данных }
begin
Write('Введите через пробел натуральные границы диапазона: ');
Readln(a,b);
Write('Введите искомую цифру: ');
Readln(k)
end;
procedure Summa(a,b:longint;k:char;var s:longint);
{ подсчет суммы чисел из интервала [a,b],
содержащих цифру k }
var
i:integer;
ci:string;
begin
s:=0;
for i:=a to b do begin
Str(i,ci);
if Pos(k,ci)>0 then s:=s+i
end
end;
var
a,b,sum:longint;
k:char;
begin
GetData(a,b,k);
Summa(a,b,k,sum);
Writeln('Сумма чисел, содержащих цифру ',k,' равна ',sum)
end.
<em><u>Тестовое решение:</u></em>
Введите через пробел натуральные границы диапазона: 50 150
Введите искомую цифру: 6
Сумма чисел, содержащих цифру 6 равна 1589
Var
sum: integer := 0;
num: integer;
begin
write('Введите число n: ');
read(num);
for var k := 5 to num do sum += k;
write('Сумма: ',sum);
end.
Это флюгер — прибор для измерения направления (иногда и скорости) ветра.
Самый древний флюгер, о котором знают историки, был расположен на Башне Ветров в Афинах, а изготовили его предположительно в 48 году до нашей эры.
Флюгер представляет собой металлический флаг, расположенный на вертикальной оси и поворачивающийся под воздействием ветра. <span>Противовес флага направлен в сторону, откуда дует ветер. Направление ветра </span><span>на современных флюгерах определяется с помощью электронного прибора.</span>