Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k встречается в строке s.
program u17z1;
var s,k: string;
i,n: integer;
begin
writeln('vvedite simvol:');
readln(k);
writeln('vvedite stroku:');
readln(s);
n := 0;
for i:=1 to length(s) do
begin
if (s[i] = k) then
n:=n + 1;
end;
writeln(k,' vstrechaetsya ',n, ' raz.');
readln();
end.
Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.
program Hello;
var i:integer;
begin
i:=1;
while i <> 0 do
begin
writeln('vvedite hcislo');
readln(i);
if i mod 2 = 0 then
writeln('chetnoe')
else
writeln('nechetnoe');
end;
end.
ООП (Объектно Ориентированное Программирование) -- подход к разработке программ, в котором в любой задаче пытаются выделить набор "объектов" и с помощью кода описать их свойства и возможное "поведение" внутри программы.
Reflow, Repaint, Composite — что это и как это работает?: https://rashidovr.medium.com/reflow-repaint-composite-%D1%87%D1%82%D0%BE-%D1%8D%D1%82%D0%BE-%D0%B8-%D0%BA%D0%B0%D0%BA-%D1%8D%D1%82%D0%BE-%D1%80%D0%B0%D0%B1%D0%BE%D1%82%D0%B0%D0%B5%D1%82-a777c5760295
"Калькулятор":
Напишите функцию, которая получает на вход произвольную строку вида:
5*(3+4)-7*9+3*(2+(2-7))
(арифметическое выражение со скобками любого уровня вложенности и операциями умножения, вычитания и сложения)
и в качестве ответа возвращает результат этого выражения.
Рекомендация: сначала убедитесь, что число открывающих скобок, равно числу закрывающих.
Пользователь вводит N (N
Напишите подпрограмму, которая определит - есть ли у них общее пересечение, и если есть - вычислит координаты отрезка-пересечения.