Регистрация
илья1974
05.10.2021 06:58
Информатика
Есть ответ 👍

Паскаль
Подсчитать средний по 3 предметам

227
407
Посмотреть ответы 1

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

emalets20042
emalets20042
4,5(83 оценок)

Program F1;

var x,y:integer;

begin

x:=10;y:=20;

if x > y then

 begin x:=1; y:=2 end

         else begin x:=2; y:=1;end;

writeln(x,' ',y);

end. 2 1

Пояснення. Виконуються оператори, що стоять після else, а потім writeln

Program F2;

var x,y:integer;

begin

x:=10;y:=20;

if x < y then

  begin x:=1; y:=2 end

         else begin x:=2; y:=1;end;

writeln(x,' ',y);

end. 1 2

Пояснення. Виконуються оператори, що стоять після then, а потім writeln

Program F3;

var x,y:integer;

begin

x:=10;y:=20;

if x < y then

  begin x:=1; y:=2 end

         else x:=2; y:=1;

writeln(x,' ',y);

end. 1 1

Пояснення. Виконуються оператори, що стоять після then, а потім y:=1 та writeln. Оператор y:=1 виконується, бо він не відноситься до else

Program F4;

var x,y:integer;

begin

x:=10;y:=20;

if x < y then

  begin x:=1; y:=2 end

         else begin x:=2; y:=1; end;

x:=0; y:=0;

writeln(x,' ',y);

end.

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