Var n: byte; begin
write (1 - den 7-gedeyingisandiengiz);
read(n); -
case n of
1: Writeln('Duysenbi');
2: Writeln("Seysenbi');
3: Writeln("Saisenbi');
4: Writeln('Beysen bi');
5: Writeln('Juma');
6: Writeln('Sen bi?);
7: Writeln(Jekseni');
else writeln("Durisemes');
end.
uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;
Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1)
then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
k:=0;
for i:=1 to N do
for j:=1 to M do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 = 0) then k:=k+1;
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to M do
Begin
Write(mas[i,j], ' ')
end;
Writeln();
end;
Writeln();
Writeln('Количество четных элементов = ',k);
end;
readln;
end.
в) Работы с файлами
2. Производительность работы компьютера (быстрота выполнения операций) зависит от:
(b) Частоты процессоpа (частоту процессора можно примерно соотносить с количеством операций в секунду. Но все определяется не только частотой, но и архитектурой процессора: разные процессоры могут за один такт выполнять разное количество элементарных действий)
3. Принцип записи и считывания информации на жесткий диск основан на:
в) Намагничивании участков дисков (на отражении луча лазера основано действие оптических дисков - CD, DVD и т.д.)
4. Дефрагментация - это:
а) Перезапись данных в кластеры, последовательно идущие друг за другом
5. Выберите правильное описание пути к файлу:
б) C:\Games\Chess\Shess.txt (вообще, могут быть еще и а и в: никто не запрещает называть папки именами с точкой, а современные версии windows уменют распознавать пути как прямым слэшем, так и с обратным).