Корнеевич
5 год назад
1.Запишите правильный вариант фрагмента программы,подчеркните место,в которых допущены ошибкиif a > bthen begin a:= b ; end elseb:=a; end;2. Определите ,что будет напечатано в результате выполнения следующего алгоритма ,записанного в ПаскалеVar s:integer:k:real;begin s:=255if s mod 2=1 then begin s:= s-1k:= s/2 endelse k:=s ;writeln(k)end.
ОТВЕТЫ
Эммануил
Oct 24, 2020
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
Вот правильный вариант е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
916
Смежные вопросы:
