begin Randomize; Assign(f, 'output.txt'); Rewrite(f); writeln('Исходный файл'); for i := 1 to n do begin e := Random(20) - 10; write(f, e); write(e:4) end; Close(f); Reset(f); writeln; writeln('Обработанный файл'); i := 0; while not Eof(f) do begin read(f, e); i := i + 1; if i mod 2 <> 0 then begin seek(f, i-1); write(f, 1); seek(f, i-1); read(f, e) end; write(e:4) end end.
Program task1; var a, b, c, p, s :real; begin readln(a,b,c); if (a + b > c) and (a + c > b) and (b + c > a) then begin writeln('Могут быть сторонами треугольника'); p:= (a + b + c)/2; s:= sqrt( p * (p - a) * (p - b) * (p - c) ); writeln('Площадь равна ',s); end else writeln('Не могут быть сторонами треугольника'); end.
program task2; var a, b, c :real; d :integer; begin write('Введите числа: '); readln(a,b); write('Введите номер действия: '); readln(d); case d of 1: c:= a + b; 2: c:= a - b; 3: c:= a * b; 4: c:= a / b; end; writeln(c); end.
1. Процесор
2.мікрофон
3. Колонки
4. Жорсткий диск
5.монітор
6. Тачпад
7. Сканер
Объяснение: