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, ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!

Искать готовые ответы

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

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)

В чём ошибка этой программы? Она должна запрашивать ввод 2 чисед, а потом вызывать функцию с помомщью которой выведет сумму и разность числа var a, b, c:string; procedure summ (plus:string; minus:string) ; Begin plus:=a+b; minus:=a+b;

Ответы (1)