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

s:='Example'; s0:='ABC';

insert (s, s0,3) ;

writeln (s) ;

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

3. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы? a:=2; for i:=0 to 2 do begin a:=a+i; end; Ответ: введите число 4.

Имеется условный оператор:if D10 then writeln ('ура!') else writeln ('плохо ...') ; Какими операторами его можно заменить? Выберите несколько из 4 вариантов ответа: 1) if D=10 then writeln ('ура!') else writeln ('плохо ...

Чио будет выведено на экран в результате выполнения нижеследующих фрагментов программ: 1. writeln (chr ('Г') - 1)) ; 2. s1:='Прилетела веселая ласточка'; s2:='веселая'; writeln (pos (s2, s1)) ; 3. s2:='веселая'; writeln (lenght (s2)) ;

Напишите, что и в какой последовательности будет выведено на экран в результате выполнения следующей программы (в точности нарисуйте, как это будет выглядеть на экране) : Var a:integer; b:real; begin a:=2; writeln (a) ; b:=a*a+3*a;