Ответ:
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 v;
var x, y: integer;
begin
readln(x);
readln(y);
if(x<y) then writeln(x);
else writeln(y);
end.
var
i,a,N:integer;
sr:real;
begin
write('Vvedite N = ');
readln(N); // Вводите количество чисел в массиве и одновременно вводите диапозон массива от 1 до N
randomize;
for i:=1 to N do
begin
a:=random(N);
write(a,' ');
sr:=sr+a; //Значения массива складываются
end;
sr := (sr / N); //Сумма значений массива делится на количество значений
writeln('srednee arifmeti4eskoe = ',sr:1:2); //Выводится среднее арифметическое
readln;
end.
Для для хранения информации с помощью 200-символьного алфавита необходимо 8 бит на 1 символ = 1 байт. Осталось перемножить количество символов на странице на количество строк и на количество страниц:
48*96*1280 = 5 898 240 байт = 5 760 Кбайт
Иван занимается л.отлетикой Андрей-футболом Алексей-хоккеем Петр-баскетболом!