program Lab2; uses crt; var i,j:longint; S:string; begin clrscr; i:=0; write('Write your number B(2) - '); readln(S); repeat begin inc(i); if (S'0') and (S'1') then begin writeln('Wrong number!'); writeln('Try again!'); writeln; write('Write your number B(2) - '); readln(S); i:=0; end; end until i>=length(S); j:=length(S); if S[1]='0' then writeln('Result - ',S) else begin while (S[j]='0') and (j>=1) do dec(j); for i:=2 to 8 do if i<j>='1' then S:='0' else S:='1'; writeln('Result - ',S); end; readkey; end.
Ключевые слова: Для чего предназначен паскаль, паскаль для чего предназначен, для чего предназначен pascal,
путешествия ПУТЕШЕСТВИЯ пУтЕшЕсТвИя ПуТеШеСтВиЯ
Ответить
Я вполне понимаю, что оно делает, но ДЛЯ ЧЕГО - это вопрос преподу, который придумывал задание :-)))
Ответить
это самая начальная программа для начинающесего программиста
Ответить
это самая начальная программа для начинающесего программиста
Ответить
это самая начальная программа для начинающесего программиста
Ответить