Задать вопрос!

Задать вопрос!

Все категории

4 года назад

9

ИНФОРМАТИКА ПОЖАЛУЙСТА составьте программу которая заменяет все пробелы заданными символами

Информатика

1 ответ:

Olia-lis4 года назад

0 0

Var
s:string;
b:char;
i,n:integer;
begin
writeln('Введите текст');
readln(s);
writeln('Введите символ');
readln(b);
n:=length(s);
for i:=1 to n do
if s[i]=' ' then
s[i]:=b;
writeln(S);
<span>end.</span>

Читайте также

1.С клавиатуры вводят слово и симвал.Составьте программу ,котораяа)проверяет,есть ли в этом слове данный симвал.б)определяет поз

Фудо

Вот первая программа. Вторую сейчас пишу.

program p_1;
var
a,b:string;
i,k:integer;
begin
k:=0;
write('Введите слово ');
readln(a);
write('Введите символ ');
readln(b);
for i:=1 to length(a) do
begin
if a[i]=b then k:=k+1;
if a[i]=b then writeln(i,' ');
end;
if k>=1 then
writeln('Да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('Нет');
end.

0 0

4 года назад

Чертежник выполнил алгоритмы.какие фигуры он нарисовал?х=5верх хвправо хопустить перовниз хвлево х

Oliviya

Нарисовано будет прямой угол по команде вниз(на 5 единиц) -влево(на 5 единиц)

0 0

4 года назад

Определите значение целочисленных переменных a и b после выполнения фрагмента программы, написанного на языке Паскаль:а:=2468;b:

КатеринкаСвердлова

b = (2468/100)*10=(68(остаток))*10
a = 2468/1000 + 680 = 2 + 680
a = 682 b = 680
ответ: в

0 0

4 года назад

Сформировать и вывести на экран последовательность из N элементов заданных датчиком случайных чисел на интервале -23 34

Lekha94 [103]

import random

m=[]

d=int(input())

for a in range(d):

m.append(random.randint(-23,34))

print(m)

0 0

4 года назад

Программа получает на вход последовательность целых неотрицательных чисел, каждое число записано в отдельной строке. Последовате

otos [1.5K]

A = int(input())
k = 0
while a != 0:
k = k+1
a = int(input())
print(k)

Пример:
15
87
60
45
73
0
15
47
5

0 0

2 года назад