Var f:text ;
c:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
writeln ('Введите ',i,' число');
read(c[i]);
end;
assign (f,'res.txt');
rewrite(f);
for i:=1 to 10 do
write (f,' ',c[i]);
close (f);
end.
Писал на Pascal ABC. Для того, чтобы работала, тебе нужно создать папку, и в этой папке сохранить данную программу. После запуска, тебе нужно будет ввести 10 чисел. Результат сохранится в той папке, в которой будет сохранена программа !
Скорость печати показывает, сколько страниц принтер печатает за минуту. Скорость черно-белой печати обычно несколько выше, чем скорость цветной. <span>Разрешение</span><span> –</span><span> </span><span>это максимальное число точек на квадратный дюйм (dpi – dots per inch), которое принтер может напечатать. По идее, качество печати тем выше, чем больше разрешение. Рекомендуемые разрешения следующие: для печати текста достаточно 300 dpi, для печати графики – 600 dpi, для качественной печати фотографий – 1200 dpi.</span>
Ответ:
Объяснение:
После строки if k=3 then Writeln(f2,x);
нужно поставить k:=0;
Var f1,f2: text;
i, k, x: integer;
Begin
Assign(f1, 'file1.txt');
reset(f1);
Assign(f2, 'file2.txt');
Rewrite(f2);
k:=0;
While not eof(f1) do
Begin
Readln(f1,x);
writeln(x);
for i:=2 to x do
If (x mod i=0) and (i mod 2=0) then inc(k);
if k=3 then Writeln(f2,x);
k:=0;
End;
Close(f1);
Close(f2);
Writeln('Второй файл содержит числа:');
Reset(f2);
While not eof(f2) do
Begin
Readln(f2,x);
Writeln(x);
End;
readln;
Close(f2);
1,25гб=1024*1,25=1280Мб
1280/16=80секунд
1минута 20 секунд