Вкажіть вірні оголошення змінних X:=12;
Var X:=12;
Var X: real;
Var Real: x;
Var A: string
Var B: Boolian;
Var Log. bulean ,
Vari: boolean
Vart text
Vart text
Var Logik boolean
Naziz integer

ответ: ВБГА

Объяснение:

Запрос под кодом В наберёт больше всего результатов, так как тут есть целых три ключевых слова, которые могут быть в искомой странице

Запрос под кодом Б наберёт результатов меньше, так как тут только два ключевых слова

Запрос под кодом Г наберёт результатов ещё меньше, так как тут необходимо, чтобы два ключевых слова были в одном документе, а в предыдущих запросах слова были на выбор

Запрос под кодом А наберёт меньше всего результатов, так как целых три ключевых слова должны быть в искомом документе

Program z1;
var a,b,c,d:integer;
procedure nod(x,y:integer;var nod2:integer);
begin
        while x<>y do begin
                if x>y then begin
                        x:=x-y
                end
                else begin
                        y:=y-x
                end
        end;
        nod2:=xend;
begin
        write('a=');readln(a);
        write('b=');readln(b);
        write('c=');readln(c);
        write('d=');readln(d);
        nod(a,b,b);
        nod(b,c,c);
        nod(c,d,d);
        writeln('nod=',d);
        readln
end.