var s, s1: string[20];

begin

s1:='karabas';

s:=copy (s1, 2, 6) ;

s:='b' + s;

insert ('-', s, 5) ;

writeln (s) ;

end.

Запишите строку S, которая будет выведена на экран в результате выполнения следующей программы

Знаете ответ?

Сомневаетесь в ответе?

Найдите правильный ответ на вопрос ✅ «var s, s1: string[20]; begin s1:='karabas'; s:=copy (s1, 2, 6) ; s:='b' + s; insert ('-', s, 5) ; writeln (s) ; end. Запишите строку S, ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.

Смотреть другие ответы

Похожие вопросы по информатике

Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;

Ответы (1)

Var St: string; z:string[10]; x:string[2]; i: integer; Begin Write ('введите строку текста - St') ; Readln (St) ; z:='0123456789'; i:=1; while i

Ответы (1)

Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;

Ответы (1)

Нельзя считывать данные этого типа паскаль (почему так выводится) program crt; var i: integer; string: (s, b, d, a) ; begin writeln ('магистратура') ; readln (a) ; s:=copy (a, 4,7) ; writeln (s) ; d:=copy (a, 4,8) ; writeln (d) ; b:=copy (a, 4,8) ;

Ответы (1)

Помогите перевести с Паскаля на Python: var k, s: string; n: integer; begin read (s) ; n : = 100; while n > 0 do begin n : = pos ('/', s) ; if n > 0 then begin k : = copy (s, 1, n - 1) ; writeln (k) ; delete (s, 1, n) ; end else n : = 0; end;

Ответы (1)