Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
60,111100,3c,74
var
a: array[1..31] of real;
i,k: integer;
min: real;
begin
min: =50;
for i: =1 to 31 do
readln(a[i]);
if a[i]< min then min: =a[i];
end;
k: =0;
if a[i]=min then k: =k+1;
writeln(k);
end.
наверняка двоичные числа надо только определить где ноль а где один
наверно о - one
10101
10110
10111
11000
11001
вроде как сходится, продолжаем
11010
11011
11100
11101
11110
11111
обратную замену самостоятельно
var s1,s2: string;
s1: ="параллелограмм";
s2: ="гром";
for i: = 1 to length(s1) do
if i > length(s2) then s[i]='';
if s1[i]< > s2[i] then s1[i]=s2[i];
writeln(s1);
чем не вариант, если правил нету)
Популярные вопросы