tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Встроке заменить все двоеточие(:
Встроке заменить все двоеточие(: )точкой с запятой (; )подсчитать количество замен
tooijas
1 01.07.2019 04:20
1
Ответы
alenuhaa
24.07.2020 15:17
Var
a:string;
i,k:integer;
begin
readln(a);
for i:=1 to length(a) do
if a[i]=':'then
begin
a[i]:=';';
k:=k+1;
end;
writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
HELPLIZA1
24.07.2020 15:17
Var
s: string;
i, k: integer;
begin
k := 0;
readln(s);
for i := 1 to length(s) do
if (s[i] = ':')then
begin
s[i] := ';';
inc(k);
end;
writeln(s);
writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Angelikakat
24.12.2020 12:55
Цифровой замок включает в себя четыре ролика, на которых устанавливаются кодовые комбинации из цифр от 1 до 9. Определите установленную комбинацию, если про неё известно,...
akr999
12.09.2019 23:40
Что такое объект wordart? какие действие определены над объектами?...
Solomina2
12.09.2019 23:50
Составить программу: заполнить массив t(4,4): на главной диагонали элементы =0, остальные по формуле i-j. найти сумму элементов в четный столбцах...
диля252
06.05.2020 19:59
Всем привет. Столкнулся с таким во У меня на компьютере старая материнка. На данный момент стоит 7 винда, но хочу 10. Если я перейду на 10, ничего не слетит? От ) ...
дитма
08.04.2020 12:27
Очень Виберіть функції, що належать до категорії статистичних функцій: МАКС ABS СРЗНАЧ МИН ЕСЛИ...
elnur4ik2002
08.04.2020 12:27
Дан условный оператор: if a 17 then y:=a else y:=a+3. Здесь условием является …...
klarabuhantsova
23.04.2021 14:19
Об єкти вікна текстового прцесора !!Заранее ...
cote18
12.04.2021 14:43
1)Що таке персональне навчальне середовище? 2)Що таке синхронізація?3)Які дії потрібно виконати, щоб встановити програму- агента хмарного сервісу Coogle Диск?4)Яку роль...
tatyanamost
12.04.2021 14:45
Выведи треугольник С++ Выведите на экран последовательность символов: a ab abc abcd и т. д. до строки, заканчивающейся символом z....
anastasiyakorc
29.04.2020 21:28
Лезо лопати, яким людина скопувала город, затупилося. Оберіть правильне твердження. A. Тепер, скопуючи город, на лопату можна тиснути слабкіше. B. Площа ріжучої крайки...
Популярные вопросы
Жінка правша, батько якої був лівшею і страждав гемофілією, одружилася...
2
Характеристики бена и деви из последнего дюйма...
2
Отметьте на координатной прямой √46...
3
Яке значення мають озера в господарській діяльності людини...
1
Хто або що є головним героєм: Кліві чи його розум, думка? Чому ви...
1
требуется решение задач! Заранее !...
2
Из предложенного перечня выберите амфотерный и кислотный оксиды....
2
Хто захищав Сіроманця? Дуже потрібно...
2
На ділянці росло 80 дерев. 1/4 частинувсіх дерев становили берези...
1
Установи зв язок між словами у реченні : Приклади, слова ти можеш...
3
a:string;
i,k:integer;
begin
readln(a);
for i:=1 to length(a) do
if a[i]=':'then
begin
a[i]:=';';
k:=k+1;
end;
writeln(k);
end.
s: string;
i, k: integer;
begin
k := 0;
readln(s);
for i := 1 to length(s) do
if (s[i] = ':')then
begin
s[i] := ';';
inc(k);
end;
writeln(s);
writeln(k);
end.