Program helpglupshkolnikam;
uses crt;
var a, b: real; i: integer;
begin
randomize;
readln(a,b);
for i:= 1 to 5 do
write(' ',(Random()*(b-a)+a):0:3, ' ');
<span>end.</span>
Составь сам но вот основные идеи:
1)Базы данных позволяют хранить кучу инфы про дохренилион звёзд, планет и д.р.
2)Современные цифровые а тем более инфракрасные телескопы несовершенны, по этому картинку с них приходится долго редактировать разными прогами
3)Планеты сами по себе не видны т.к. не светятся поэтому их местоположение можно узнать лишь рассчитав изменение траектории звезд из-за гравитации этих планет. Такие тонкие расчёты может провести только комп.
4)Да и вообще всем современным оборудованием руководит компьютер упрощая жизнь учёного т.к. в современном оборудовании слишком много данных
Program ar;
Var a:array [1..3] of array [1..4] of integer;
i, j, min, sum:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
read(a[i][j]);
for i:=1 to 3 do
for j:=1 to 4 do
if a[i][j] > 10 then write(a[i][j], ' ');
writeln;
min:=a[2][1];
for j:=1 to 4 do
if a[2][j] < min then min:=a[2][j];
writeln(min);
for i:=1 to 3 do
begin
sum:=0;
for j:=1 to 4 do
sum:=sum + a[i][j];
write(sum, ' ');
end;
end.
Надеюсь все работает.
уфф, сегодня вас много, паскалистов. :D
Первый год - 1,2m
Второй - 1.44m
Третий - 1,728m
Четвертый - 2,0736m
Долг в 2 раза превысит первоначальный вклад через 4 года.