База ответов ИНТУИТ

Программирование на языке Pascal

<<- Назад к вопросам

Какой тип будет иметь результат выражения a+b при a:byte, b:shortint?

(Отметьте один правильный вариант ответа.)

Варианты ответа
longint
shortint
integer(Верный ответ)
word
byte
Похожие вопросы
Какое значение будет храниться в поле a записи r1 после выполнения следующего блока?
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.
Какие значения будут храниться в переменных s и k после считывания из текстового файла f строки 'Петров Петр Петрович 1956' при помощи команды
readln(f,s,k); {s: string[22], k:shortint =0}
Типы данных byte и shortint являются:
Какие значения будут храниться в переменных s и k после считывания из текстового файла f строки 'Олегов Олег Олегович 1962' при помощи команды
readln(f,s,k); {s: string[22], k:byte =0}
Какие значения будут храниться в переменных s и k после считывания из текстового файла f строки 'Иванов Иван Иванович 1945' при помощи команды
readln(f,s,k); {s: string[22], k:byte =0}
Какое значение будет храниться в переменной а:shortint после выполнения следующего программного отрывка?
{b: char; p: ^shortint}b:= ‘Б’;p:= addr(b);a:= p^;
Какие значения будет принимать переменная z, в зависимости от значений переменной а?
z:= 0;if a>10   then if a>100         then if a>1000                then z:= 1         else z:= -1  else z:= 10;
Какие значения будет принимать переменная z, в зависимости от значений переменной а?
z:= -10;if a>0   then if a>100         then if a>200                then z:=0         else z:= 20  else z:=100;
Какие значения будет принимать переменная z, в зависимости от значений переменной а?
z:= -1;if a<100  then if a<10         then if a<1                then z:=0         else z:= 10  else z:= 100;
Какие переменные будут существовать во время выполнения подпрограммы p2?
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;