fkn+antitotal

всякого бо ответа недоумеюще

Можно скопировать:

Решение задачи 3

"Калькулятор":
Напишите функцию, которая получает на вход произвольную строку вида:

5*(3+4)-7*9+3*(2+(2-7))

(арифметическое выражение со скобками любого уровня вложенности и операциями умножения, вычитания и сложения)

и в качестве ответа возвращает результат этого выражения.

Рекомендация: сначала убедитесь, что число открывающих скобок, равно числу закрывающих.

Решение:

Задана последовательность символов, имеющая следующий вид: p1q1p2q2p3...qn–1pn
, где pi
— число, а qi
— знак арифметического действия из набора {+, –, *}. Вычислите значение выражения, предполагая, что действия выполняются согласно правилам арифметики.
Входные данные: На вход программе подается строка указанного вида, состоящая не более чем из 9 чисел, разделенных символами арифметических операций.
Выходные данные: Выведите значение арифметического выражения.

Решение:

Задача 6 Урок 17

Задача 5 Урок 17

Задача 4 Урок 17

Задача3 Урок 17

Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней

var s:string;  i,n:Integer;
begin
    readln(s);
    n := 0;
    for i:=1 to Length(s) do begin // обходим строку в цикле
        if (s[i]>='0')and(s[i]<='9') then inc(n);
    end;

    writeln('This string contains ',n,' digits.'); // выводим массив
    readln();
end.
        

Вывод консоли: