Информатика 10 класс

Вот на PascalABC:

Var St : string;
Sim : char;
Col : integer;
begin
Col := 0;
St := ' S = 2*X1+3*X2/(X2+3*X1)/ (X2+25*X1)';
WriteLn ( ' Задано выражение: ', St);
for var i := 1 to Length (St) do
begin
Sim := St[i];
if (Sim = '*') then Col := Col+1;
end;
WriteLn ( ' Количество операций произведения = ', Col);
end.

Задание 1:
Программа на языке Pascal:

 program symbols; 

 

var 

  i: integer; 

 

begin 

  for i := 0 to 255 do 

    writeln(i, ' - ', chr(i)); 

  readln; 

end. 

Задание 2:
Анализируя выражение, можно заметить, что знак операции умножения встречается два раза: в первом слагаемом и в знаменателе дроби. Произведение второго слагаемого не учитываем, так как в нем только возведение в степень и операция деления.
Программный код на языке Pascal:

 program arithmetic; 

 

var 

  x1, x2: real; 

  count: integer; 

   

begin 

  count := 2; 

  writeln('Введите значение X1:'); 

  readln(x1); 

  writeln('Введите значение X2:'); 

  readln(x2); 

  count := count + 1; // операция возведения в степень в первом слагаемом 

  count := count + 1; // операция умножения в первом слагаемом 

  count := count + 1; // операция возведения в степень во втором слагаемом 

  count := count + 1; // операция умножения во втором слагаемом 

  count := count + 1; // операция сложения в знаменателе дроби 

  count := count + 1; // операция возведения в степень в знаменателе дроби 

  count := count + 1; // операция умножения в знаменателе дроби 

  count := count + 1; // операция деления 

  count := count + 1; // операция деления 

  writeln('Количество операций умножения:', count); 

  readln; 

end.