Program z1; var stroka:string; var i:integer; begin writeln('Введите строку'); readln(stroka); for i:=1 to length(stroka) do begin if(stroka[i]='1') then stroka[i]:='0' else if(stroka[i]='0') then stroka[i]:='1'; end; writeln(stroka); end.
Блок-схему с телефона сделать не могу, вот текстом: Начало Ввод а Ввод b a>b? Если да, вывод a В другом случае вывод b (подразумевается, что a и b никогда не равны) Конец Аналогичная программа на Qbasic: DIM a AS INTEGER, b AS INTEGER INPUT a INPUT b IF a > b THEN PRINT a ELSE PRINT b END IF На C#: Using system; class Compare{ public static void main(String[] args){ int a = int.Parse(Console.ReadLine()); int b = int.Parse(Console.ReadLine()); if (a>b){ Console.WriteLine(a); }else{ Console.WriteLine(b); } Console.ReadLine(); //чтобы программа не закрылась после выполнения } }
var stroka:string;
var i:integer;
begin
writeln('Введите строку');
readln(stroka);
for i:=1 to length(stroka) do
begin
if(stroka[i]='1') then
stroka[i]:='0'
else if(stroka[i]='0') then
stroka[i]:='1';
end;
writeln(stroka);
end.