Var a,b:integer; m:array [1..10,1..10] of real; begin for a:=1 to 10 do begin for b:=1 to 10 do begin m[a,b]:=sin(a)+b; write('m[a,b]:7:2);end; end; writeln; end.
Алфавит у нас состоит из трех букв (Б,У,М). Длина ряда 4 буквы. Количество возможных слов вычисляется по формуле N^m(н в степени м), где N - это длина алфавита, а m - длина ряда. Получаем 3^4=81. Дальше нужно исключить случаи, когда Есть три идущие буквы подряд, рассмотрим все случаи. 1.Когда все буквы в слове одинаковые (, , ); 2.Когда есть три буквы одинаковые (БББУ,УБББ,БББМ,МБББ, БУУУ,УУУБ,МУУУ,УУУМ,МММБ,БМММ,УМММ,МММУ.). Тобишь всего исключений 12+3=15. Вычитаем из количества всех вариантов 81-15=66. ответ:66 различных слов.
Var s: string; a, b: integer; begin readln(s); if s[1] = 'x' then begin a := StrToInt(s[3]); b := StrToInt(s[5]); if s[2] = '-' then a := -a; writeln(b - a); end else if s[3] = 'x' then begin a := StrToInt(s[1]); b := StrToInt(s[5]); if s[2] = '-' then begin a := -a; b := -b; end; writeln(b - a); end else if s[5] = 'x' then begin a := StrToInt(s[1]); b := StrToInt(s[3]); if s[2] = '-' then b := -b; writeln(a + b); end end.
учтите что никакой защиты от дурака или неверного ввода
a,b:integer;
m:array [1..10,1..10] of real;
begin
for a:=1 to 10 do begin
for b:=1 to 10 do begin
m[a,b]:=sin(a)+b;
write('m[a,b]:7:2);end;
end;
writeln;
end.