1. вещество, әнергия и информапия весьма схожи своими свой- ствами, проявляющимися в тех или иных процөссах. их можно по- лучать, передаватъ, хранить, обрабатывать. во втором столбце таб- лицы перечислены различные процессы. заполните остальные столбды, указав для каждого процесса, что именно энергия или информация кому виду процессов он относится (в первых двух строках - дены образцы такого заполнения). вещество, - является основным объектом ик ка-
n = 3; //Кол-во фигур
var
i : integer;
xk,yk : integer;
xl,yl : array [1..n] of integer;
r : boolean;
begin
//Задание координат
//
xk := 2; yk := 2; // Координаты короля
//Координаты ладьи
xl[1] := 1; yl[1] := 2;
xl[2] := 4; yl[2] := 6;
xl[3] := 5; yl[3] := 8;
//
r := false;
i := 1;
While (i <= n) and (not r) do
begin
if (xk = xl[i]) or (yk = yl[i]) then //Лежат на одной прямой
r := true;
i:= i +1;
end;
if r then
writeln ('Король под ударом')
else
writeln ('Король живет)');
end.
currentPos,wordsAmount:byte; groupWords:string;
procedure isCorrect(startPos:byte);
begin
while currentPos+1<=length(groupWords) do
if groupWords[currentPos+1]<>' ' then inc(currentPos) else break;
if groupWords[startPos]=groupWords[currentPos] then
inc(wordsAmount);
end;
begin
readln(groupWords); wordsAmount:=0; currentPos:=1;
while currentPos<=length(groupWords) do
begin
if (groupWords[currentPos]<>' ') then isCorrect(currentPos);
inc(currentPos);
end;
writeln(wordsAmount); readln;
end.