Input"введите текст"; a$
For i=1 to len(a$)
if mid$(a$,i,1)="М" then s=s+1
next
print " Количество букв =" s
end
1 картинка 20 упражнение . Я включил компьютер и набрал на клавиатуре сочинение про свою семью . Затем я переписал с фотоаппарата последние фотографии, добавил их к тексту и вывел сочинение на монитор. После этого я прибавил громкость звука колонок и стал играть в любимую игру , быстро двигая мышкой . Получив рекордный результат , я ввёл с клавиатуры своё имя и распечатал на принтере список рекордсменов .
function MyPower(x: real; n: integer): real;
var
i: integer;
begin
result := 1;
if n < 0 then
result := 1 / MyPower(x, -n)
else
for i := 1 to n do
result := result * x;
end;
var
x, y, p: real;
begin
Write('x, y: ');
Read(x, y);
p := (2 * MyPower(x, 5) + 4 * MyPower(x, 30) + 8 * y)
/ (2 * y + MyPower(y, 15) - 25 * x);
Write('p = ', p);
end.
3*COUNTIF(B3:G3,1)+2*COUNTIF(B3:G3,2)+1*COUNTIF(B3:G3,3)
Б)2504200,32 B)264,792 ВРОДЕ ТАК ))