Program time;var deg, resultshour, resultminute: real;begin readln(deg); resultshour := deg / 30; resultminute := deg / 0.5; writeln('часов: ',resultshour, ' минут: ', resultminute);end.
Var
a:array[1..10]of array[1..10] of integer;
i, j ,P: Integer;
Begin
randomize;
writeln('Массив:');
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin a[i][j]:=random(21)-10;
write(a[i][j]:5);
end;
writeln;
end;
for i := 1 to 10 do
if a[i][i] < 0 then
begin P:=1;
for j := 1 to 10 do
P:=P*a[i][j];
writeln(i,'-я строка, П=',P);
end;
writeln;
<span>End.</span>
<span>Глобальная сеть Интернет - способ организации межкультурного общения. Психологические особенности Интернет-коммуникации, интернет-этикет. Процессы развития глобальных информационно-коммуникационных технологий в настоящее время. Риски виртуального общения</span>
var
i,a,b: integer;
begin
writeln('Введите границы интервала: ');
readln(a,b);
for i:=a to b do
writeln(i,' ',sqr(i),' ',sqr(i)*i);
end.
что это такое? ооо и оон?м?)