DIM ch$(26)
FOR i = 1 TO 26
ch$(i) = CHR$(ASC("a") + i - 1)
NEXT
DIM cw(26) AS LONG
PRINT "text:"
INPUT "", s$
DO WHILE s$ <> "*"
s$ = s$ + " "
iw = 0
FOR i = 1 TO LEN(s$)
c$ = MID$(s$, i, 1)
IF iw = 0 AND c$ <> " " THEN
iw = 1
idx = ASC(c$) - ASC("a") + 1
cw(idx) = cw(idx) + 1
ELSEIF iw = 1 AND c$ = " " THEN
iw = 0
END IF
NEXT
INPUT "", s$
LOOP
FOR i = 1 TO 25
m = i
FOR j = i TO 26
IF cw(j) > cw(m) OR (cw(j) = cw(m) AND ch$(j) < ch$(m)) THEN
m = j
END IF
NEXT
IF m <> i THEN
tmp = cw(m)
cw(m) = cw(i)
cw(i) = tmp
tmp$ = ch$(m)
ch$(m) = ch$(i)
ch$(i) = tmp$
END IF
NEXT
FOR i = 1 TO 26
IF cw(i) <> 0 THEN
PRINT ch$(i) + ":"; cw(i)
END IF
NEXT
var x,z:real;
begin
writeln('Вычислить значение выражения по формуле y= (1+sin(SQRT(x+1)))/(cos(12*z-4))');
write('Введите число X: '); readln(x);
write('Введите число Z: '); readln(z);
writeln('y= ',(1+sin(sqrt(x+1)))/(cos(12*z-4)):0:2);
end.
1. использовать Робот
алг нач
нц 3 раз
вверх
вправо
вверх
влево
кц
кон
2. использовать Робот
алг
нач
нц 3 раз
вправо
вниз
вправо
вверх
кц
кон
Не знаю зачем ты писал такие костыли , если вот весь алгоритм
for (i = 1; i<n; i++)
{
if ((mas[i] % 2 == 0) && ((i >= a) && (i <= b)) && ((i>0) && (i<n - 1)))
{
mas[i] = mas[i - 1] + mas[i + 1];
}
}