После точки в имени файла записывается его расширение, например:
Книга.rar, Dota.exe, Список учащихся.docx
Он определяет программу, через которую должен открыть данный файл.
Обычно файл с типом *.exe - программный файл, это может быть любая программа или игра. *.doc или *.docx - текстовый документ, *.rar - архив и т.д
program noname;
uses crt;
var
x,y:real;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if (x>1) or (x<-1)or (y>1) or (y<-1) then
writeln('no')
else writeln('yes');
readkey;
end.
Результаты идентичны, равенство доказано.
Var
eval: array[1..35] of byte;
i, good: integer;
sr: real;
begin
good := 0;sr := 0;
for i := 1 to 35 do
begin
write(i, '.) ');readln(eval[i]);
sr := sr + eval[i];
if eval[i] = 5 then inc(good);
end;
sr := sr / 35;
writeln('Всего пятерок: ', good);
writeln('Средний бал: ', sr:0:2);
end.
var
tmp, sum : integer;
begin
sum := 0;
while not eoln do
begin
read (tmp);
if (tmp >= 10) and (tmp <= 15) then
sum := sum + tmp;
end;
writeln (sum);
end.