Який вигляд має команда неповного розгалуження в Object Pascal? відсутня правильна відповідь if логічний - id1733382320220114 от Nastenavip80 14.01.2022 23:27

Question

Информатика: Який вигляд має команда неповного розгалуження в Object Pascal? відсутня правильна відповідь if логічний вираз then команда if ….. then if логічний вираз then команда 1 else команда 2 Питання №3 ? Як відбувається виконання команди неповного розгалуження, якщо значення логічного виразу true? виконується послідовність команд 1 і після цього виконується команда, наступна за розгалуженням виконується послідовність команд 2 і після цього виконується команда, наступна за розгалуженням. виконується послідовність

Nastenavip80 · Accepted Answer

1.

program xopow1;
uses crt;
var
a, b, Sek: integer;
begin
writeln('Введите границы:');
repeat
readln(a, b);
until b >= a;
clrscr;
for a := a to b do
begin
Sek := a * 60;
writeln(a, ' мин. = ', sek, ' сек.')
end
end.

2.

program xopow2;
uses crt;
Var
z:integer;
f,x,y:real;
Begin
clrscr;
Writeln;
X:=10000;
Y:=(x/100)*10;
for z:=1 to 7 do
Begin
X:=x+y;
Writeln(Z,' -й день тренировок спортсмен пробежал ',X:3:2,' Км.');
End;
Writeln('Нажмите Enter...');
Readln;
end.

MOGZ ответил