var a:string;
begin
Writeln('В каком году началась Великая Отечественная война?');
Readln(c);
if c = '1945' then Writeln ('Правильно!')
else Writeln('Вы ошиблись, Великая Отечественная война началась в 1945 году');
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Mas=array[,] of integer;
procedure GetMas(s:string; var a:Mas);
begin
Writeln('*** Массив ',s,' ***');
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('Вводите элементы массива');
a:=ReadMatrInteger(n,m)
end;
function SumDiag(a:Mas):integer;
begin
Result:=0;
for var i:=0 to Min(a.RowCount,a.ColCount)-1 do Result+=a[i,i]
end;
begin
var a,b,c:Mas;
GetMas('A',a);
GetMas('B',b);
GetMas('C',c);
Writeln('Общая сумма элементов главных диагоналей равна ',
SumDiag(a)+SumDiag(b)+SumDiag(c))
end.
<u>Пример</u>
*** Массив A ***
Количество строк в массиве: 3
Количество столбцов в массиве: 4
Вводите элементы массива
-33 -50 34 -41
-31 10 37 31
32 -49 -32 -27
*** Массив B ***
Количество строк в массиве: 2
Количество столбцов в массиве: 2
Вводите элементы массива
-22 35
0 11
*** Массив C ***
Количество строк в массиве: 3
Количество столбцов в массиве: 2
Вводите элементы массива
23 38
17 -8
16 -1
Общая сумма элементов главных диагоналей равна -51
Ответ:
2
Объяснение:
Алгоритм находит количество равных первых букв у обоих слов.
в нашем случае у обоих слов равны только первые две буквы: С, Т
N=16*32*64=32768 символов в одном досье.
Один символ в стандартной кодировке занимает 1 байт или 8 бит.
I=N*i=32768*1= 32768 байта/1024=32 Кб
V=8 МБ * 1024 = 8192 КБ
n=V/I=8192/32=256 сотрудников.
Ответ: 256
---------------------------------------------
Гипер-ссылка - это <span>графический или текстовой объект на сайте или в персональном послании, который с помощью одного шага (клика) позволяет перейти на нужную страницу этого же или других ресурсов сети интернет.</span>