var
s:string;
z,z1,i:integer;
begin
readln(s);
z:=0;
z1:=0;
for i:=1 to length(s) do
begin
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.
1. Наверное в версии паскаль в первой строке не degin а begin
После исправления ошибки получим по шагам выполнение кода:
k = 0 s = 17
k = 1 s = 19
k = 2 s = 21
k = 3 s = 23
k = 4 s = 25
k = 5 s = 27
k = 6 s = 29
k = 7 s = 31
k = 8 s = 33
k = 9 s = 35
k = 10 s = 37
Ответ: s = 37
Var x, y: integer;
begin
write('x = ');
readln(x);
if x <= 0 then y := 0;
if ((x > 0) and (x <= 1)) then y := x;
if x > 1 then y := x * x;
writeln(y);
end.
При x = 8, y = 64.
Обработка, передача, хранение