К 1971 году была создана сеть с 23 пользователями в разных концах США. В 1972 году впервые ARPANET была продемонстрирована перед публикой.
Const
R=14;
var
i,k:integer;
W:array[1..R] of longint;
begin
Write('Введите число членов последовательности (1-',R,'): ');
Readln(k);
if (k<1) or (k>R) then Writeln('Вы ввели неверное значение')
else begin
Write('Члены последовательности: 1');
w[1]:=1;
for i:=2 to k do
begin
w[i]:=5*w[i-1];
Write(', ',w[i])
end;
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Введите число членов последовательности (1-14): 14
Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125
Program prog;
uses crt;
var
a,b,c,s:real;
begin
write('катет a = ');
readln(a);
write('катет b = ');
readln(b);
writeln;
c:=sqrt(sqr(a)+sqr(b));
s:= (a*b)/2;
writeln('Гипотенуза с = ', c:0:3);
writeln('S = ', s:0:3);
end.
Procedure CKR(var M,N:integer);
Var d:integer;
Begin
if M>N then d:=N
else d:=M;
While d>1 do
Begin
if (M mod d = 0)and(N mod d = 0) then
Begin
M:=M div d;
N:=N div d;
if M>N then d:=N
else d:=M
End;
d:=d-1
End;
End;
Var M,N:integer;
Begin
Write('M = ');ReadLn(M);
Write('N = ');ReadLn(N);
CKR(M,N);
WriteLn(M,'/',N);
End.
Математика - 1 урок
Литература - 2 урок
История - 2 урок
