Информатика, много ! Ребят нужно решения для 10 класса без сложных функций командами для 10 класса
readinteger , split и другие такие функции не приветствуются решение без char и т д
Pascal ABC
1) С клавиатуры вводится символьная строка. Определите, сколько раз встречается в
строке каждый из входящих в нее символов.
2) С клавиатуры вводится предложение, в котором слова разделены пробелами.
Определите, сколько слов в этом предложении начинается и заканчивается на одну и ту
же бук
(ВНИМАНИЕ! НЕ НАДО ИСПОЛЬЗОВАТЬ ТАКИЕ ФУНКЦИИ КАК chr, ord,include!)
малика225
2
27.04.2020 20:41
1
Другие вопросы по теме Информатика
DarkPear
26.09.2021 13:26
koshuba2017
11.03.2021 09:06
anastasiyakorc
11.03.2021 09:06
Daniilkan
10.11.2020 16:20
Сметана011
10.11.2020 16:21
Ofsi
18.03.2021 09:01
RILIR
18.03.2021 09:01
CRaBFeed
30.05.2023 23:38
elyavlasova
30.05.2023 23:38
Популярные вопросы
- мин осталось по Казахстану ...
2 - Что находится на 6° север широты и 63° западной долготы?!...
1 - 4. ( ) По рисунку укажите трапеции перечислением номеров....
2 - Тілші «Үлгілі отбасы» мүшелерінен сұхбат алу үшін арнайы сұрақтар әзірледі. Сен...
3 - соотнесите отрывки с соответствующими им средствами художественной выразительности....
1 - Напишите имя и дайте оценку общественно-политической деятельности, изображенной...
2 - 9. Задание 3. Соотнесите государства и их достижения. (5 б.) *ВосточноКимакский...
3 - 2 Назовите основные признаки доиндустриального общества:( : 4)1. Господство натурального...
2 - Обозначьте верные суждения. А) В начале XX в. форсированными темпами шла дальнейшая...
2 - Расскажи о древнейших религиозных верованиях ...
2
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-надо думать(