Информатика, много ! Ребят нужно решения для 10 класса без сложных функций командами для 10 класса
readinteger , split и другие такие функции не приветствуются решение без char и т д
Pascal ABC
1) С клавиатуры вводится символьная строка. Определите, сколько раз встречается в
строке каждый из входящих в нее символов.
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-надо думать(