1. указаны пути от корневого каталога к некоторым файлам, хранящимся на магнитном диске. заглавными буквами обозначены имена каталогов, строчными – имена файлов: \arsenal\run.exe; \arsenal\readme.doc; \games\war3\ratings\03100.rtc; \games\war3\ratings\018001.rtc; \games\war3\ratings\022000.rtc; \pascal\bp\bin\bp.exe; \pascal\rtl\units\windos.txt а) отобразить файловую структуру в виде дерева. б) составьте спецификацию файла с именем windos.txt при условии, что каталог \pascal\bp\bin активный. 2. запишите шаблон имени файла, имеющего любое расширение, первая буква в имени – y ., всего символов в имени – 4 (без расширения)?

👇

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

Ответ:

Adelina174

14.06.2021

1 б составте спецификацию

4,5(93 оценок)

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

Ответ:

alinavn2014

14.06.2021

Program figna ; {это название}
var a,b,c,d: integer; {объявление переменных a,b,c и говорим что они целые}
begin {начало}
writeln('введите три числа'); {запрос чисел}
readln(a,b,c); {ввод чисел}
d:=a*b*c; {умножаем числа и присваиваем d их значение}
if (d<50) then {если произведение чисел меньше 50 то}
a:=a*10; {первое число умножаем на десять}
b:=b*10; {второе число умножаем на десять}
c:=c*10; {третье число умножаем на десять}
writeln(a); {выводим первое}
writeln(b); {выводим второе}
writeln(c); {выводим третье}
else {иначе}
writeln(d); {выводим произведение}
end. {конец}
P.S. этот символ { } паскаль не читает и означает он коментарий

4,4(56 оценок)

Ответ:

yan7772

14.06.2021

Var a,b,c,i,sum,cp:integer;
begin
sum:=0;
cp:=0;
Randomize;
writeln('Посчитайте сложение:');
while i<10 do
begin
a:=random(40)+10;
b:=random(60)+10;
sum:=a+b;
write('Сколько будет ',a,'+',b,'= ');
read(c);
if c=sum then begin
cp:=cp+1;
writeln('Молодец!');
end else writeln('Неправильно');
i:=i+1;
end;
writeln('Всего правильных ответов ',cp);
write('Оценка:');
if (cp<=4) then write('Очень плохо (2)') else
if (cp>=5) and (cp<=6) then write('Удовлетворительно (3)') else
if (cp>=7) and (cp<=8) then write('Хорошо (4)') else
if (cp>=9) then write('Отлично! (5)');
end.

4,6(12 оценок)

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

Кулинария-и-гостеприимство

18.08.2021

Сделай свой день еще сладким: как сделать букет из конфет...

Компьютеры-и-электроника

03.08.2020

Вредоносное ПО в Facebook: как избавиться от него...

Образование-и-коммуникации

26.01.2022

Как хорошо учиться: советы, методы и секреты...

Семейная-жизнь