1) для моделирования своих проектов
2) для хранения информации о пациентах
3) для создания презентаций к урокам, для хранения информации об учениках
4) для связи с коллегами через интернет
5) для хранения и учета информации о бюджете
6) коМ/Спозитор? ?
7) для хранения информации о встречах, делах начальника
8) для быстрого написания текста, хранения его
9) для создания картин на нем, для поиска вдохновения
<span>10) для создания новых моделей, поиска через интернет чего-то нового и хранения это на ПК</span>
Можно решить задачу и без использования массивов:
const n=2003; m=2016;
var
i,j,k:integer;
begin
k:=0;
for i:=1 to n do
for j:=1 to m do
if (i-1)*m+j=(j-1)*n+i then k:=k+1;
writeln(k);
end.
Результат:
14
Если хочется с массивами, то:
const n=4; m=6;
var
a,b:array[1..n,1..m] of integer;
i,j,k:integer;
begin
writeln('1 массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=(i-1)*m+j;
write(a[i,j]:4);
end;
writeln;
end;
writeln('2 массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
b[i,j]:=(j-1)*n+i;
write(b[i,j]:4);
end;
writeln;
end;
k:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]=b[i,j] then k:=k+1;
writeln(k);
end.
Ответ:
1,3,5,7
Объяснение:
Если-не-правильно-извини-но-вроде-так-должно-быть!
1)
var
a, b: integer;
begin
readln(a, b);
if (a mod 2 = 0) and (b mod 2 = 0) then
writeln('Оба четные')
else
writeln('НЕТ');
end.
2)
var
a, b: integer;
begin
readln(a, b);
if (a mod 2 = 0) or (b mod 2 = 0) then
writeln('Является')
else
writeln('НЕТ');
end.
245(10)=128+64+32+16+4+1=2^7+2^6+2^5+2^4+2^2+2^0=11110101(2)
Ответ:6