Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
uses crt; var
a,b: integer; begin write('введи возраст саши: '); read(a);
write('введи возраст маши: '); read(b);
writeln; if a> b then write('саша старше маши'); if a< b then write('маша страше саши'); if a=b then write('маша и саша - ровесники'); end.
1)деловая бумага; 2)подтверждает факт или право
2^i=n, n = 16
2^i=16
i=4 бит
50 * 4 = 200 бит
200: 8 = 25 байт
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.
Популярные вопросы