Определите результат выполнения фрагмента программы и запишите его в тетрадь А) а:="канатоходец" b:=copy (a, 3,2) + copy (a, 7,3) + copy (a, 1,2) writeln (b).

Б) t:='компьютер' x:=copy (t, 1,4) + 'oc'+copy (t, 7,3) writeln (x)

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

1) Определите значение целочисленных переменных a и b после выполнения фрагмента программы: a : = 3 + 8*4; b : = (a div 10) + 14; a : = (b mod 10) + 2;

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

1. Какой результат отобразится на экране после выполнения фрагмента программы на Pascal? begin k:=4; writeln ('данные') ; a:=k+10; k:=k+a; writeln (a, k, k*k, a*a) ; writeln ('результат:','a=', a,'k=', k) ; end.

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