Типы данных byte и shortint являются:
(Отметьте один правильный вариант ответа.)
Варианты ответа
эквивалентными
совместимыми(Верный ответ)
совместимыми по присваиванию
var a: integer; r1: record a: byte; ... end; r2: record a: shortint; ... end;begin a:= 0; with r1 do begin r2.a:= -10; with r2 do begin a:= 100; r1.a:= -a; end end; a:= 100;end.
readln(f,s,k); {s: string[22], k:shortint =0}
readln(f,s,k); {s: string[22], k:byte =0}
readln(f,s,k); {s: string[22], k:byte =0}
{b: char; p: ^shortint}b:= ‘Б’;p:= addr(b);a:= p^;
program prog;var a: byte;procedure p1; var a: byte; begin ... end;procedure p2; function f: boolean; var a: byte; begin ... end; var a: byte; begin ... end;