Пользователь вводит произвольную строку, выведите на экран каждый пятый символ или сообщение об ошибке, если строка состоит менее чем из 5 символов.
program u17z2;
var s: string;
i,n: integer;
begin
writeln('vvedite stroku:');
readln(s);
if length(s)>=5 then
for i:=1 to length(s) do
begin
if (i mod 5 = 0) then
writeln(s[i]);
end
else
writeln('owibka');
readln();
end.
Пользователь вводит символ 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.
ООП (Объектно Ориентированное Программирование) -- подход к разработке программ, в котором в любой задаче пытаются выделить набор "объектов" и с помощью кода описать их свойства и возможное "поведение" внутри программы.
"Калькулятор":
Напишите функцию, которая получает на вход произвольную строку вида:
5*(3+4)-7*9+3*(2+(2-7))
(арифметическое выражение со скобками любого уровня вложенности и операциями умножения, вычитания и сложения)
и в качестве ответа возвращает результат этого выражения.
Рекомендация: сначала убедитесь, что число открывающих скобок, равно числу закрывающих.
