//Pascal ABC.NET 3.1 сборка 1219

Var
f:text;
c,n1,n2,i:integer;
ar1,ar2:array of real;
r:real;
begin
readln(c);
assign(f,'INPUT.TXT');
reset(f);
while not(Eof(f)) do
begin
read(f,r);
if r>c then
begin
inc(n1);
setlength(ar1,n1);
ar1[n1-1]:=r;
end;
if r<c then
begin
inc(n2);
setlength(ar2,n2);
ar2[n2-1]:=r;
end;
end;
close(f);
assign(f,'OUTPUT1.TXT');
rewrite(f);
for i:=0 to n1-1 do
if i<>n1-1 then write(f,ar1[i],' ') else write(f,ar1[i]);
close(f);
writeln('Count of values in OUTPUT1.TXT:',n1);
assign(f,'OUTPUT2.TXT');
rewrite(f);
for i:=0 to n2-1 do
if i<>n2-1 then write(f,ar2[i],' ') else write(f,ar2[i]);
close(f);
writeln('Count of values in OUTPUT2.TXT:',n2);
end.

Пример ввода:
2
Содержимое <span>INPUT.TXT:
1.5 1.75 2 2.25 2.5
Содержимое OUTPUT1.TXT:
2.25 2.5
Содержимое OUTPUT2.TXT:
1.5 1.75
Пример вывода:
Count of values in OUTPUT1.TXT:2
Count of values in OUTPUT2.TXT:2</span>

0 0

4 года назад

Дано число А. Определить, является ли оно простым (простое это натуральное число имеющие ровно два различных натуральных делител

Эдонис [24]

Var a,i,k:integer;
begin
readln(a);
for i:=2 to a-1 do
if (a mod i)=0 then k:=k+1;
if k=0 then writeln('Простое')
else writeln('Сложное');
<span>end.</span>

0 0

4 года назад

Выразите в часах: 4 ч 24 мин; 7 мин 20 сек

Афхуд

$4\frac{24}{60}=4.4\\\frac{7\frac{20}{60}}{60}=0.1(2)$
Так?

0 0

4 года назад

С клавиатуры вводится 10 целых чисел. Вычислить сумму элементов и их среднее арифметическое. Формат входных данных С клавиатуры

Денис Бессмертный 3

Прикреплена фотография кода, тест и сам код
Открывать любым текстовым редактором

0 0

3 года назад