Помогите объяснить задачу?

Svetichka2 11 июн. 2020 г., 17:05:21

Var

otvet : String ;

i : integer ;

S0, S : String ;

C : char ;

begin / / Считывание данных

Writeln('Введите строкy S') ;

readln(S) ;

Writeln('Введите строкy S0') ;

readln(S0) ;

Writeln('Введите символ C') ;

readln(C) ; / / Цикл посимвольная обработка строки

for i : = 1 to length(S) do

begin / / Программа вставляет подстроку S0 в строку S / / перед каждым символом C / / Сохраняя результат в otvet

if S[i] = C then

Otvet : = otvet + S0 + C

else

Otvet : = otvet + S[i] ;

end ;

Writeln('Ответ : ', otvet) ;

end.

Drvitekivanov 30 авг. 2020 г., 22:22:39 | 10 - 11 классы

Помогите описать алгоритм?

Помогите описать алгоритм!

Uses crt ;

var s, sn, sg : string ;

i : integer ;

begin

write('s = ') ;

readln(s) ; sn : = '' ;

for i : = 1 to length(s) do

if s[i] = '.

' then

sn : = sn + '.

' else sn : = sn + s[i] ;

write('s = ', sn) ;

readkey

end.

Ainurai 29 февр. 2020 г., 19:06:08 | 10 - 11 классы

Дана строка?

Дана строка.

Каждую точку замените многоточием (т.

Е тремя точками).

В чем беда?

Или совсем не правильно?

Var str : string ;

q : integer ;

k : string ;

begin

writeln ('введите строку') ;

readln (str) ; k : = '.

' ;

q : = pos('.

', str ) ;

while q< ; > ; 0 do

begin

insert (str, k, q ) ;

q : = pos('.

', str ) ;

end ;

writeln (str) ;

end.

Deniskamalov 9 сент. 2020 г., 03:08:15 | 5 - 9 классы

ЧТО ДЕЛАЕТ ЭТА ПРОГРАММА?

ЧТО ДЕЛАЕТ ЭТА ПРОГРАММА?

Procedure vvod(var st : string[10] ; c : string) ; begin writeln('Ввести' + ' ' + c) ; readln(st) ;

end ; function kol(c : string ; st : string) : integer ; var k, i : integer ; begin k : = 0 ; i : = 1 ;

while i< ; = length(st) do begin if copy(st, i, 1) = c then k : = k + 1 ;

i : = i + 1 ; end ;

kol : = k ; end ; var s, s1, s2 : string[10] ;

Begin vvod(s, 'строку') ; vvod(s1, 'символ первый') ; vvod(s2, 'символ второй') ; if kol(s1, s) > ; kol(s2, s) then writeln('Символ ', s1, ' встречается в строке ', s, kol(s1, s) : 4, ' раз.

Это > ; , чем встречается ', s2) else

if kol(s2, s) > ; kol(s1, s) then

writeln('Символ ', s2, ' встречается в строке ', s, kol(s2, s) : 4, ' раз.

Это > ; , чем встречается ', s1)

else writeln('Количество символов ', s1, ' и ', s2, ' в строке ', s, ' одинаково и = ', kol(s1, s) : 4) ;

end.

DaniilKo 26 июл. 2020 г., 13:30:43 | 10 - 11 классы

В чём ошибка этой программы?

В чём ошибка этой программы?

Она должна запрашивать ввод 2 чисед, а потом вызывать функцию с помомщью которой выведет сумму и разность числа var a, b, c : string ; procedure summ(plus : string ; minus : string) ; Begin plus : = a + b ; minus : = a + b ; writeln('', plus, '') ; writeln('', minus, '') ; end ; Begin Writeln('chislo') ; Readln(b) ; Readln(b) ; summ (Writeln('', plus, '', ''minus'') end.

Jaksone98 21 окт. 2020 г., 05:46:16 | 10 - 11 классы

Исправить ситаксические ошибки в программе которая в тексте меняет слово 77777 на слово 00000 Var s : string ; d, i : integer ; begin s : = '177777277777377777477777 ; d : = length(s) ; for i : = 0 to?

Исправить ситаксические ошибки в программе которая в тексте меняет слово 77777 на слово 00000 Var s : string ; d, i : integer ; begin s : = '177777277777377777477777 ; d : = length(s) ; for i : = 0 to d - 4 begin if copy(s, i, 5) = 00000 then begin delete(s, i, 5) ; end end ; writeln(s) end.

Эллина55555 5 нояб. 2020 г., 15:51:12 | 10 - 11 классы

Помогите, пожалуйста объяснить как работает программа, очень срочно, пожалуйста)))program Zinaida ;const N = 5 ;var i, k : integer ; inString : String ; isize, count : integer ;Beginrepeatwrite('Strin?

Помогите, пожалуйста объяснить как работает программа, очень срочно, пожалуйста)))

program Zinaida ;

const N = 5 ;

var i, k : integer ; inString : String ; isize, count : integer ;

Begin

repeat

write('String : ') ;

readln(inString) ; k : = length(instring) ;

if instring[k] = '.

' then dec(k) ;

for i : = 1 to k do begin if instring[i]< ; > ; ' ' then inc(isize) ; if (instring[i] = ' ') or (i = k) then begin

if isize = 5

then inc(count) ;

isize : = 0 ;

end ;

write('Количество слов из пяти букв', count) ;

End.

Mriosif123 20 сент. 2020 г., 05:07:46 | 5 - 9 классы

Паскаль и работа с ним?

Паскаль и работа с ним.

Объясните как это работает , про строки и все тому подобное.

Var a, c : integer ; b : string ; begin readln(a) ; str(a, b) ; b : = ReverseString(b) ; Val(b, a, c) ; writeln(a) ; end.

AvEnTaDoR005 25 сент. 2020 г., 12:43:18 | 5 - 9 классы

Program TELESHOP ; var x : real ; begin writeln ('?

Program TELESHOP ; var x : real ; begin writeln ('.

') ; write ('.

') ; write ('.

') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.

') ; writeln ('.

') ; end else begin writeln ('.

') ; end ; * else begin writeln ('.

') ; end end.

* - место ошибки.

"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?

05012002dasha45 6 нояб. 2020 г., 13:16:36 | 10 - 11 классы

Помогите перевести с паскаля в си + +vars : string ;k : longint ;beginread(s) ;for i : = 1 to length(s) do if s[i] = 'S' then k : = k + 1 ;writeln(k) ;end?

Помогите перевести с паскаля в си + +

var

s : string ;

k : longint ;

begin

read(s) ;

for i : = 1 to length(s) do if s[i] = 'S' then k : = k + 1 ;

writeln(k) ;

end.

Dimka1945 10 дек. 2020 г., 05:39:36 | 5 - 9 классы

Pascal abcvara, c, d : real ;b : char ;begin?

Pascal abc

var

a, c, d : real ;

b : char ;

begin

.

If b = ' + ' then

d : = a + b ;

.

Выдает ошибку "нельзя преобразовать тип string к real"

что делать?