Информатика, много ! Ребят нужно решения для 10 класса без сложных функций командами для 10 классаreadinteger , split и другие такие функции не приветствуются решение без char и т дPascal ABC1) С клавиатуры вводится символьная строка. Определите, сколько раз встречается в строке каждый из входящих в нее символов.2) С клавиатуры вводится предложение, в котором слова разделены пробелами. Определите, сколько слов в этом предложении начинается и заканчивается на одну и ту же бук(ВНИМАНИЕ! НЕ НАДО ИСПОЛЬЗОВАТЬ ТАКИЕ ФУНКЦИИ КАК chr, ord, include!)​​​

1-

program qq;

var

s: string;

i, count: integer;

this_c: char;

begin

readln(s);

while (length(s) > 0) do begin

this_c := s[1];

count := 0;

while(pos(this_c, s) <> 0) do begin

delete(s, pos(this_c, s), 1);

count := count + 1;

end;

writeln('"', this_c, '": ', count);

end;

writeln;

end.

2-надо думать(

Червь  – программа, которая делает копии самой себя. Ее вред заключается в захламлении компьютера, из-за чего он начинает работать медленнее. Отличительной особенностью червя является то, что он не может стать частью другой безвредной программы.Троянская программа (троянский конь, троян)Троянская программа маскируется в других безвредных программах. До того момента как пользователь не запустит эту самую безвредную программу,  троян не несет никакой опасности. Тронская программа может нанести различный ущерб для компьютера. В основном трояны используются для кражи, изменения или удаления данных. Отличительной особенностью трояна является то, что  он не может самостоятельно размножаться.

Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.