Указаны пути от корневого каталога к некоторым файлам, хранящимся на логическом диске. Заглавными буквами обозначены имена каталогов, строчными – имена файлов: E:\COUNTRU\USA\INFO\culture.txt;
E:\USA\COUNTRU\washington.docx;
E:\RUSSIA\COUNTRU\moscow.txt;
E:\COUNTRU\RUSSIA\INFO\industry.jpg;
E:\COUNTRU\RUSSIA\INFO\culture.txt.
Отобразите файловую структуру в виде иерархии

👇

Увидеть ответ

Ответ:

MashaBelous

02.12.2020

+COUNTRY

|–––+USA

| |–––washington.txt

| |––+INFO

| |––––– culture.txt

|––+RUSSIA

|–––+INFO

|––––– culture.txt

|––––– industry.txt

4,7(81 оценок)

Открыть все ответы

Ответ:

gubkina2003

02.12.2020

1) var a: array[0..100] of integer; i, s, n: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do   begin
a[i] := random(10);
write(a[i], ' ');
s := s * a[i];
end;
writeln;
writeln(s);
end.

2) var a: array[0..100] of integer; i, s, n: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do   begin
a[i] := random(10);
write(a[i], ' ');
end;
for i := 1 to n do   begin
// if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов.
// if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов.
end;
writeln;
writeln(s);
end.

3)var a: array[0..100] of integer; i, s, n, max: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do   begin
a[i] := random(10);
write(a[i], ' ');
end;
s:=0;
for i := 1 to n do   begin
if (a[i]>s) then s:=a[i];
end;
writeln;
writeln(s);
end.

4)var a: array[0..100] of integer; i, s, n, max: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do   begin
a[i] := random(10);
write(a[i], ' ');
end;
s:=0;
for i := 1 to n do   begin
if (a[i]>s) and (a[i] mod 3=0) then s:=a[i];
end;
writeln;
writeln(s);
end.

4,8(11 оценок)

Ответ:

LidaDay

02.12.2020

Более красивый вариант)

Program N_1;   //Название программы
Var a,b,c:integer; //Переменные
BEGIN
Writeln('Введите длину и ширину прямоугольника'); //Вывести данную строку
readln(a,b);      //Считать a и b
if a<b   //Если a<b
then begin      //то найти периметр
c:=(a+b)*2;
Writeln('Пириметр= ',c)     //и вывести его
end
else begin     //Если a>b
c:=a*b;   //то найти площадь
writeln('Площадь= ',c) //и вывести ее.
end;
END.

4,7(87 оценок)

Это интересно:

Взаимоотношения

01.11.2020

Как определить, что девушка пытается увести вашего парня...

Дом-и-сад

10.09.2020

Заставьте ваш филодендрон расцвести: советы по уходу за растением...

Здоровье

05.02.2023

Как сдержать газы: 7 важных советов...

Дом-и-сад