#include <fstream>
using namespace std;
int main(int argc, char* argv[]){
setlocale(LC_ALL, "rus");<span>
ofstream
fout("cppstudio.txt"); </span><span>
fout << "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ" << endl;</span>
int i;
for (i=192;i<=223;i++){<span>
fout << i << " ";</span>
}
fout.close();
return 0;
<span>}</span>
Ответ:
Наприклад обертання фото або якигось об'єктів або виставлення звуку
Var t:array[1..10] of integer;i,q,k:integer;
begin
for i:=1 to 10 do
read(t[i]);
for i:=1 to 10 do begin
read(q);
k:=k+t[i]*q;
end;
writeln('Общая стоимость: ',k);
end.
Архивация — подготовительная обработка (сбор, классификация, каталогизация, сжатие (для цифровой информации)) данных для долгосрочного хранения или передачи их по сети
Это возможность служит для облегчения работы с файлами
Program p1;
const n=10;
var a:array[1..n] of integer;
i:integer;begin
randomize;
for i:=1 to n do
begin
a[i]:=random(10);
if (a[i] mod 2)=0 then a[i]:=0;
end;
for i:=1 to n do
begin
writeln(a[i]);
end;
<span>
end.</span>