Регистрация
lisasmirnova1
06.05.2020 22:28
Информатика
Есть ответ 👍

Чему будет равна переменная k после выполнения:
var a,b : boolean;
k:integer;
begin
a:=true;
b:=false;
a:= not(succ(b));
k:=ORD(a);
end.

Возможные варианты ответов:
1). 0
2). 1
3). False
4). True

166
433
Посмотреть ответы 2

Ответы на вопрос:

МудрыйКролик
МудрыйКролик
4,5(19 оценок)

Правильный ответ k = 0

Vera2200
Vera2200
4,4(56 оценок)
1. современное решение // pascalabc.net 3.2, сборка 1488 от 21.06.2017 // внимание! если программа не работает, обновите версию! function from5to10(self: sequence of string): sequence of integer;       extensionmethod; // перевод последовательности заданных на строках пятиричных чисел // в последовательность целых десятичных чисел begin   foreach var s in self do begin       var r: =0;       var pa: =1;       foreach var c in s.reverse do begin           r+=c.todigit*pa; pa*=5       end;       yield r       end end; begin   var s: =readlnstring('введите строку: ').matchvalues('[0-4]+').from5to10;   if s.count=0 then writeln('s=-1')   else writeln('s=',s.sum) end. пример введите строку: sdf812973j223k s=73 2. решение на turbopascal ("так писали наши отцы и деды в 1983 году, так и нас сейчас учат в школе") uses crt; function from5to10(n: string): integer; { перевод из пятиричного числа в строковом представлении   в целое десятичное } var   i,pa,s: integer; begin   s: =0;   pa: =1;   for i: =length(n) downto 1 do begin       s: =s+pa*(ord(n[i])-ord('0'));       pa: =pa*5       end;   from5to10: =s end; var   s,w: string;   i,k,r: integer; begin   clrscr;   write('введите строку: ');   readln(s);   w: ='';   r: =0;   k: =0;   for i: =1 to length(s) do begin       if pos(s[i],'01234')> 0 then begin           if w='' then k: =k+1;           w: =w+s[i]           end       else           if w< > '' then begin               r: =r+from5to10(w);               w: =''               end       end;   if k=0 then writeln('s=-1')   else writeln('s=',r);   readkey end.

Популярно: Информатика