Х у х*y <span>(х*у)*х
0 0 0 0
0 1 0 0
1 0 0 0
1 1 1 1</span>
//Pascal ABC
//Вывод чисел кратных 3 на промежутке от 0 до 50
var
i:integer;
begin
for i:=0 to 50 do begin
writeln(i);
i:=i+2;
end;
end.
А) Последствия событий 13 века: события этого века положили начало отстаиванию русских земель от стран 'Западной Европы; Золотоордын-ское иго нанесло огромный ущерб экономическому. политическому и культурному развитию Руси
б) Океан - главный хранитель воды, давно поражающий исследователей необычностью своих свойств. Воды пронизывают всю географическую оболочку и производил в ней разнообразную работу
в) Симбиоз - это взаимовыгодное отношение двух организмов. Плоские черви - паразиты
г) Всякий равносторонний треугольник есть равноугольный треугольник. Прямоугольник с равными сторонами есть квадрат
д) Русский язык - один из славянских языков. Пунктуация изучат знаки препинания
е) Пушкин - великий русский поэт. Достоевский - один из популярных писателей
<span>ж) Информатика зиждется на математике. Компьютер облегчил жизнь человека
</span>
Program n1;
Uses CRT;
Const n=5; m=7;
Var A: array[1..n,1..n] of integer;
i,j,s,k: integer;
begin
clrscr;
randomize;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
s:=s+a[i,j];
k:=k+1;
end;
writeln;
end;
Writeln('srednee arifmeticheskoe =',s/k:4:4);
readln
end.