Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
s: string;
z,z1,i: integer;
begin
readln(s);
z: =0;
z1: =0;
for i: =1 to length(s) do
if s[i]='м' then inc(z);
if s[i]='н' then inc(z1);
end;
if z> z1 then writeln('больше букв м');
if z< z1 then writeln('больше букв н');
if z=z1 then writeln('букв м и н равное количество');
end.
21,24,27,30,33,36,39,42,45,48
n,i,z: integer;
readln(n);
for i: =1 to n do if n mod i=0 then inc(z,i);
writeln(z);
смотря какая передача и каких данных, много чего придумать можно, мне кажется) телефон, радио, модем,рация. или просто- передатчик.
Популярные вопросы