1. Запишите правильный вариант фрагмента программы, подчеркните место, в которых допущены ошибки

if a > b then begin a: = b; end else b:=a; end;

2. Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного в Паскале

Var s:integer:k:real;

begin

s:=255

if s mod 2=1 then begin s: = s-1 k: = s/2 end

else k:=s;

writeln (k)

end.

Question

Информатика

Вадим

14 марта, 07:26

1. Запишите правильный вариант фрагмента программы, подчеркните место, в которых допущены ошибки

if a > b then begin a: = b; end else b:=a; end;

2. Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного в Паскале

Var s:integer:k:real;

begin

s:=255

if s mod 2=1 then begin s: = s-1 k: = s/2 end

else k:=s;

writeln (k)

end.

+5

Ответы (1)

Знаете ответ на вопрос?

Марксина · Answer 1

1) if a > b then begin a: = b; end else b:=a;

Вот правильный вариант еnd; был лишний так как еще одного begin не было

2)

Var s:integer; k:real;

begin

s:=255; if s mod 2=1 then begin s: = s-1; k: = s/2 end

else k:=s; writeln (k)

end.

Тут у вас; с запятой были потеряны после исправления ответ 127