Если что-то будет не так - напиши, испралю. У меня простог нет возможности проверить, выполняется ли...
program string_7;
var s:string;
k,l,i:integer;
begin write('введите строку:');
readln(s);k:=0;l:=0;
for i:=1 to length(s) do
begin if s[i]='н' then k:=k+1;
if s[i]='м' then l:=l+1
end;
writeln('н=',k);
writeln('м=',l);
if k>l then
writeln ('Больше букв Н');
if k<l then
writeln ('Больше букв м');
if (k = 0) and (l = 0) then
writeln ('Таких букв нет');
end.
Так будет првильней... Элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))
Ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.
var a,b,c,d,z:integer;
begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет');
read (z);
while (z = 1) do
begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет');
read (z);
end;
end.
// Внимание! Если программа не работает, обновите её версию!
begin
Writeln('x x^2 x^3');
var x:=0.1;
while x<=1.01 do begin
Writeln(x:4:2,x*x:7:3,x*x*x:10:6);
x+=0.05
end
end.
Результат
x x^2 x^3
0.10 0.010 0.001000
0.15 0.023 0.003375
0.20 0.040 0.008000
0.25 0.063 0.015625
0.30 0.090 0.027000
0.35 0.123 0.042875
0.40 0.160 0.064000
0.45 0.203 0.091125
0.50 0.250 0.125000
0.55 0.303 0.166375
0.60 0.360 0.216000
0.65 0.423 0.274625
0.70 0.490 0.343000
0.75 0.563 0.421875
0.80 0.640 0.512000
0.85 0.723 0.614125
0.90 0.810 0.729000
0.95 0.903 0.857375
1.00 1.000 1.000000
Настоящий вид вывода показан во вложении.