Срочно Информатика, много баллов! Ребят нужно решения для 10 класса Пожалуйста, без сложных функций простыми командами для 10 класса
readinteger , split и другие такие функции не приветствуются!
простое решение без char и т д
Pascal ABC
1) С клавиатуры вводится символьная строка. Определите, сколько раз встречается в
строке каждый из входящих в нее символов.
2) С клавиатуры вводится предложение, в котором слова разделены пробелами.
Определите, сколько слов в этом предложении начинается и заканчивается на одну и ту
же бук
(ВНИМАНИЕ! НЕ НАДО ИСПОЛЬЗОВАТЬ ТАКИЕ ФУНКЦИИ КАК chr, ord,include!)
readinteger , split и другие такие функции не приветствуются!
простое решение без char и т д
Pascal ABC
1) С клавиатуры вводится символьная строка. Определите, сколько раз встречается в
строке каждый из входящих в нее символов.
2) С клавиатуры вводится предложение, в котором слова разделены пробелами.
Определите, сколько слов в этом предложении начинается и заканчивается на одну и ту
же бук
(ВНИМАНИЕ! НЕ НАДО ИСПОЛЬЗОВАТЬ ТАКИЕ ФУНКЦИИ КАК chr, ord,include!)
More Questions From This User See All
Answers & Comments
Ответ:
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-надо думать(
символы, заключенные в угловые скобки '<' и '>' (вместе с этими скобками).