Ответ:
program Friendly;
uses
SysUtils; // для IntToStr
var
a, b, i, pa, pb: LongInt;
sa, sb: string;
f: Boolean;
begin
Write ('A, B = ');
ReadLn (a, b);
sa := IntToStr (a);
sb := IntToStr (b);
f := True;
for i := 0 to 9 do begin
pa := Pos (IntToStr (i), sa);
pb := Pos (IntToStr (i), sb);
if ((pa <> 0) and (pb = 0)) or ((pa = 0) and (pb <> 0)) then begin
f := False;
Break;
end;
end;
if f then
WriteLn ('YES')
else
WriteLn ('NO');
ReadLn;
end.
Ответ:
program Qwerty;
var a, b, c, d, e, f, g: real;
begin
readln (a, b, c, d, e);
f:=5;
g:=(a+b+c+d+e)/f;
writeln (g);
end.
Объяснение:
Ответ написан в файле.
Через логическую связку and и or не получится проверял. Только построчно.