Задача 1. Впишите имя корневого каталога, расширение файла
1) B:\TXT\DOC\MY. CPP
2) Y:\Y\Z\Z. Y
3) C:\МОИ ДОКУМЕНТЫ\ФОТО\2018\ПОРТРЕТ. JPG
4) C:\ТЕСТ. DOC

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.

хай                                                                                                                                                                           

исполняемые файлы:

test.exe = 459 кб

photo.exe = 117 кб

letter.com - 198 кб

графические файлы:

nature.jpg = 314 кб

program.bmp = 361 кб

текст. документы:

comp.doc = 238 кб

получается порядок:

test.exe 

program.bmp

nature.jpg

comp.doc

letter.com

photo.exe 

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.