Var 
R1, R2, R3, S1, S2, S3: Integer;
begin
writeln('Введите размеры рации и чемодана');
readln(R1, R2, R3, S1, S2, S3);
if ((R1 < S1) and (R2 < S2) and (R3 < S3)) or
((R3 < S3) and (R2 < S1) and (R1 < S2)) or
((R1 < S1) and (R2 < S3) and (R3 < S3)) or
((R2 < S2) and (R1 < S3) and (R3 < S1)) or
((R2 < S1) and (R3 < S2) and (R1 < S3)) or
((R1 < S2) and (R3 < S1) and (R2 < S3)) then
WriteLn('ПОМЕЩАЕТСЯ')
else
WriteLn('НЕ ПОМЕЩАЕТСЯ');
end.

0 0

3 года назад

Имеется исполнитель Маятник. Он может двигаться по кругу, исполняя два типа команд: Л - движение влево (по часовой стрелке); П -

николай2222222222...

Ответ 1, П310, т.к. после всех перемещений маятник будет в точке -50 гр

0 0

4 года назад

Помогите, пожалуйста : Укажите, сколько раз будет выполнен цикл for i :=-1 to 2 do a:=a+1; а) 2 б)бесконечно в)0 г)3 д)4

klim1992 [2]

Ответ:

д)4

Объяснение:

2 - (-1) + 1 = 4

0 0

4 года назад

Как сделать так, что бы программа ждала определенного действия, после чего продолжала работу?

Юлия Вин [52]

Поставить условие. Что пока не случится что-то, то она больше ничего не делала

0 0

4 года назад