// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var names:array[1..2,1..5] of string:=
(('Саша','Женя','Таня','Лена','Вася'),
('Александр','Евгений','Татьяна','Елена','Василий'));
var name:=ReadlnString('Введите краткое имя:');
var p:=0;
for var i:=1 to 5 do
if name=names[1,i] then begin p:=i; break end;
if p>0 then Writeln(names[2,p])
else Writeln('Я вас не знаю!')
end.
<u><em>Тестовое решение</em></u>
Введите краткое имя: Лена
Елена
Исполнитель Чертёжник, PascalABC.NET 3.2
uses Drawman;
procedure Hexagon();
begin
PenDown;
OnVector(2, 1);
OnVector(0, 2);
OnVector(-2, 1);
OnVector(-2, -1);
OnVector(0, -2);
OnVector(2, -1);
PenUp;
end;
begin
Field(15, 7);
ToPoint(3, 1);
Hexagon();
OnVector(2, 0);
Hexagon();
OnVector(2, 0);
Hexagon();
end.
1)
var A: array [1..6,1..4] of integer;
i,j: integer;
begin
randomize;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
A[i,j] := random(20) - 10;
end;
end;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
if (A[i,j] == 0) then begin
writeln("0 v stroke ", i);
continue;
end;
end;
end;
end.
2)
var B: array [1..10] of integer;
i: integer;
begin
for i := 1 to 10 do begin
if (i mod 2 == 0) then B[i] := 5;
else B[i] := 2;
end;
for i := 1 to 10 do begin
writeln(B[i]);
end;
end.
Формула: N=2^i
Где N - <span>количество возможных информационных сообщений
I - </span><span>количество информации</span>