//PascalABC.NET 3.4.2
begin
var str := readstring('Введите строку:').ToWords;
var ch := readchar('Введите букву:');
str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;
end.
я программисть:)
program summa;
var
x, y:real;
begin
writeln('Введите вещественные числа');
read(x,y);
writeln('их сумма: ', x+y);
writeln('их разность: ', x-y);
writeln('их произведение: ', x*y);
writeln('их частное: ', x/y:0:2);
end.
Окно программы называется ярлык
Var
m,n: array [1..15] of integer;
a,i,max: integer;
begin
readln(a);
writeln('Исходный массив:');
for i:= 1 to 15 do
begin
m[i]:= random(20);
n[i]:=m[i]*a;
if (n[i]>max) and (i mod 2=1) then max:=n[i];
write (m[i],' ');
end;
writeln;
writeln('Новый массив:');
for i:= 1 to 15 do write (n[i],' ');
writeln;
writeln('Максимальный нечетный: ',max);
<span>end.</span>
В скобках указывала основание системы счисления.