Кот ловит мышь
ученик делает уроки
отец читает газету
Путь к файлу включает в себя название локального диска (на Windows, на линукс же просто "/home...")
И в принципе все, ведь файл может просто находиться на локальном диске не в папке
Пример:
C:\File.txt
В линукс выглядело бы так
/home/user/File.txt
Сразу видно что в линукс все по уму,
/ - корневой каталог
home - <span>домашние каталоги пользователей системы</span>
user - имя пользователя (а ведь пользователей могло быть и по 5 штук....)
File.txt - сам файл
Var
i, a, b, n, n2, j: longint;
s: string;
flag: boolean;
begin
Write('Введите через пробел границы диапазона: ');
Readln(a, b);
if b < a then begin n := a; a := b; b := n end;
if a < 11 then a := 11;
for i := a to b do
begin
Str(i, s);
n := Length(s); n2 := n div 2; flag := true; j := 1;
repeat
flag := (s[j] = s[n - j + 1]);
j := j + 1
until (not flag) or (j > n2);
if flag then Write(i, ' ')
end;
end.
Тестовое решение:
Введите через пробел границы диапазона: 800 1500
808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999 1001 1111 1221 1331 1441
Var
a, i, max: integer;
sum: real;
begin
max := 0;
sum := 0;
i := 0;
repeat
write('Введите число: ');
readln(a);
if a > 0
then begin
sum := sum + a;
i := i + 1;
end;
if max < a
then max := a;
until a = 0;
writeln(#10,'Сумма = ', sum, #10, 'Среднее арифметическое = ', sum / i, #10, 'Наибольшее число - ', max);
end.