Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1)
Режим | Описание
r | Только для чтения.
w | Только для записи. Создаст новый файл, если не найдет с указанным именем.
rb+ | Для чтения и записи
a+ | Откроет для добавления нового содержимого. Создаст новый файл для чтения записи, если не найдет с указанным именем.
2) Записать можно строку в файл с write()
чтение первых n символов файла осуществляется с read(n)
добавляет последовательность строк в файл append()
Метод flush() очищает внутренний буфер.
program xxx;
var i, m, p, n : integer;
t : array[1..31] of real;
begin
writeln('введите температуру ')
for i: =1 to 31 do
readln(t[i]);
m: =0; p: =0; n: =0;
if t[i]< 0 then m: =m+1;
if t[i]> 0 then p: =p+1;
if t[i]=0 then n: =n+1
end;
writeln('дней с отрицательной температурой было - ', m);
writeln('дней с положительной температурой было - ', р);
writeln('дней с нулевой температурой было - ', n);
readln
end.
program chislo;
var x: integer;
z,y : real;
readln(x);
y: =5.5;
z: = x-y;
writeln(z);
при запуске программы вводите эти значения и тестируете.
Популярные вопросы