Var a, b, c: integer;
begin
read(a, b, c);
if (a mod 2 = 0) or (b mod 2 = 0) or (c mod 2 = 0)
then write('Есть')
else write('Нет');
end.
Ответ:
Всё очень просто. Смотри!
Объяснение:
1. Ответ: 5 файлов. Файлы имеют разрешение такие как jpeg., tif., doc. и т. д.
2. Папок 4. Папки не имеют разрешиний и в них хранятся файлы. Но они могут быть пустыми.
3. И путь. Нужно просто смотреть по порядку и записывать через слеш /.
Вот:
Е:/Байкал/Рыбы/Омуль. jpeg.
Var
s:string;
begin
readln(s);
writeln(s[3]);
<span>end.</span>