• 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.

Ответы 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 endelse k:=s ;writeln(k)end.Тут у вас ; с запятой были потеряны после исправления ответ 127
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years