попробуй
programm dima;
var
m1:array[1..50]of integer;
m2:array[1..50]of integer;
n1,n2,i:integer;
arifm1,arifm2:real;
begin
writeln('Vvedite rozmeri masivov');
readln(n1,n2);
randomize;
writeln('Masiv 1:');
for i :=1 to n1 do
begin
m1[i]:=random(50);
write(m1[i],' ');
end;
writeln;
writeln('Masiv 2:');
for i:=1 to n2 do
begin
m2[i]:=random(60);
write(m2[i],' ');
end;
for i :=1 to n1 do
arifm1:= arifm1+m1[i];
arifm1:=arifm1/n1;
for i :=1 to n2 do
arifm2:= arifm2+m2[i];
arifm2:=arifm2/n2;
writeln;
if arifm1=arifm2 then
writeln('seredne arifmetichne rovnie')
else
if arifm1>arifm2 then
writeln('seredne arifmetiche 1 masiva bilche')
else
writeln('seredne arifmetiche 2 masiva bilche');
end.
Входные данные
На вход программы подаются две символьные строки, каждая строка завершается символом "конец строки".
Выходные данные
Программа должна вывести все символы, которые встречаются в обеих строках, в порядке возрастания их ASCII-кодов. Если таких символов нет, нужно вывести слово 'NO'.
Примеры
входные данные
qwerty
asdqwhy
выходные данные
qwy
входные данные
qwerty
12345
выходные данные
NO
Pascal ABC 1.8 Программа должна быть составлена по теме множества
var set1: Set of Char;
set2: Set of Char;
s1, s2: string;
i: integer;
done: boolean;
c: char;
begin
set1 := [];
set2 := [];
readln(s1);
readln(s2);
for i := 1 to length(s1) do
include(set1, s1[i]);
for i := 1 to length(s2) do
include(set2, s2[i]);
done := False;
for c := #0 to #255 do
if (c in set1) and (c in set2) then
begin
done := True;
write(c);
end;
if not done then
write('NO');
writeln;
end
9000 байт = 9000*8 бит
Количество символов в сообщении = 9000*8 / 6 = 12000
Количество строк на странице = 12000 / (60*4) = 50