• Создайте текстовый файл a.txt с копирования с консоли в файл. Файл a.txt должен содержать ваше любимое четверостишие (фрагмент стихотворения в 4 строки)
• Создайте текстовый файл b.txt с перенаправления стандартного вывода. Файл b.txt должен содержать одно предложение.
• Выведите на экран файл a.txt командой type
• Выведите на экран файл b.txt командой copy
• Скопируйте файл a. txt в каталог С: \
• Выведите на экран файл С:\a.txt
• Скопируйте файл a.txt в С:\z.txt
• Выведите на экран файл С:\z.txt
• Скопируйте файл b.txt в файл c.txt
• Выведите на экран файл c.txt
• Скопируйте файл a.txt в файл d.txt
• Выведите на экран файл d.txt
• Скопируйте файлы a.txt и b.txt в файл f.txt
• Выведите на экран файл f.txt
• Скопируйте все файлы типа txt в каталог C:\Text
• Выведите на экран содержимое каталога C:\Text
uses crt;
var a,b,c,max:integer; r:real;
begin
Write('Введите число A: ');
Readln(a);
Write('Введите число B: ');
Readln(b);
Write('Введите число C: ');
Readln(c);
If a>=b then max:=a
else
max:=b;
If c>max then
max:=c;
r:=a+b+c;
If (A>B) and (B>C) and (C>0) then
Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);
If (A<0) and (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A) then
begin
A:=max;
B:=max;
C:=max;
Writeln('A= ',a,' B= ',b,' C= ',c);
end
else
Writeln('Symma: ',r);
end.
var i,w:byte;season:mas;t:real;
function temp(ses:mas;d:byte):real;
var i:byte;s:real;
begin
s:=0;
for i:=1 to d do s:=s+ses[i];
temp:=s;
end;
begin
repeat
writeln('Год високосный?1-да 0-нет');
read(w);
if (w<>1) and (w<>0) then w:=2;
until w<>2;
writeln('Введите зимние температуры за каждый день:');
for i:=1 to 90+w do readln(season[i]);
t:=temp(season,90+w);
writeln('Среднее арифметическое зимних температур: ',t/(90+w):5:3);
writeln('Введите весенние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,92);
writeln('Среднее арифметическое весенних температур: ',t/92:5:3);
writeln('Введите летние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,92);
writeln('Среднее арифметическое летних температур: ',t/92:5:3);
writeln('Введите осенние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,91);
writeln('Среднее арифметическое осенних температур:',t/91:5:3);
end.