Ответ:
Объяснение:
После строки 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);
Эскейп, интер, шифт, ужас лук, контрл, альт, бэкспэйс, дэлет, инсерт, хом, энд, пэйдж ап, пэйдж доун, нам лок
Решение находится во вложениях
<span>Фонетика-это раздел науки о <span>языке, в котором изучаются звуки и их чередования, а также ударение, интонация, слогораздел.</span></span>
На казахский сам переведешь.
1.
Маркеры(маркированный список)
Нумерация(нумерованный список)
Многоуровневый список
2.
1. Пішімдеу
3. Формула
3.
a)
A1-A7. Автозаполнение порядкового номера.
E2-E7,C7-E7. Автозаполнение формул
b)
В ұяшықтар E2 =C2*D2
В ұяшықтар С7 =СУММ(C2:C6)
4.
1. Выделить текст
2. Условное форматирование
3. Гистограммы
4. Градиентті бояу
или так
1. Набрать текст
2. Выделить текст
3. Гистограмма
4. Градиентті бояу