uses crt;
var A,B:integer;
begin TextColor(Blue);
writeln('<<<Нахождение максимального из двух целых чисел >>>' :50); writeln;
write('Первое число= ? ');
readln(A);
write('второе число= ? ');
readln(B);
write('Максимальное из двух чисел ');
if A>B then writeln(A)
else
if B>A then writeln(B) else writeln('Числа равны!'); readln;
end.
Ответ:
Всё очень просто. Смотри!
Объяснение:
1. Ответ: 5 файлов. Файлы имеют разрешение такие как jpeg., tif., doc. и т. д.
2. Папок 4. Папки не имеют разрешиний и в них хранятся файлы. Но они могут быть пустыми.
3. И путь. Нужно просто смотреть по порядку и записывать через слеш /.
Вот:
Е:/Байкал/Рыбы/Омуль. jpeg.
Var
A:byte;
Begin
A:=random(151)+5;
if (25 < A)and(A < 100) then WriteLn('Число ',A,' содержится в интервале (25,100)')
else WriteLn('Число ',A,' не содержится в интервале (25,100)')
End.