Написать программу решения задачи: С клавиатуры вводят 9 вещественных чисел. Занести в типизированный файл только отрицательные из введённых чисел. При форматирование файла учесть, что в файле данные должны быть записаны в строку.
Ответы
Ответ дал:
0
var
i:integer;
n:real;
f:file of real;
begin
Assign(f,'in.dat');
Rewrite(f);
Writeln('Введите 9 вещественных чисел');
for i:=1 to 9 do begin Read(n); Write(f,n) end;
Close(f)
end.
Пример ввода:
Введите 9 вещественных чисел
2 -5 1.45 -81.34 5.63e-10 0 -13.45e12 17.5353 -12e-3 1000
i:integer;
n:real;
f:file of real;
begin
Assign(f,'in.dat');
Rewrite(f);
Writeln('Введите 9 вещественных чисел');
for i:=1 to 9 do begin Read(n); Write(f,n) end;
Close(f)
end.
Пример ввода:
Введите 9 вещественных чисел
2 -5 1.45 -81.34 5.63e-10 0 -13.45e12 17.5353 -12e-3 1000
Вас заинтересует
10 месяцев назад
10 месяцев назад
1 год назад
1 год назад
6 лет назад
7 лет назад