Реализуйте решение , программируя на паскале. программа морскрй бой. учитель задумывает два числа от 0 до 9. (водятся учителемв вашу программу игрок пытается их угадать, вводя свои числа. если они совпали(в указанном порядке), то игрок выиграл (выводится сообщение-"попал"). иначе-сообщение "мимо".

Begin var x,y: real; read (x); if (x> =0) and (x< =9) then begin while (y< > x) do begin read (y); if (y< > x)then writeln ('мимо') else writeln ('попал'); end; end else writeln ('неверный ввод'); end.

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var a,b,c: integer;   read(a,b);   if b> a then swap(a,b);   while true do begin       read(c);       if c=0 then break;       if c> b then swap(b,c);       if b> a then swap(a,b)       end;   writeln('два наибольших числа ',a,', ',b) end. пример -14 13 39 -5 -39 -8 39 41 -2 -49 -32 18 -33 -50 10 2 -2 3 0 два наибольших числа 41, 39 замечание: вводить можно, также нажимая enter

Сидят: таня                     саша             ира           катя                 даша оранж блуза     синяя         красная       белая             жёлтая секретарь       продавец       менедж.     админист.       повар сандалии         сабо             туфли         босонож           рыжая             русые           блонд           брюнетка         каштан даша носит ,   таня секретарь