8. var s: string[4]; begin write ('Введите четырёхзначное число: '); readln(s); if (s[1]='0') or (s[2]='0') or (s[3]='0') then writeln(s[4],s[3],s[2],s[1]) else if (s[4]='0') then writeln(s[3],s[2],s[1]) else writeln(s,'0'); readln;end.
var s: string[4]; begin write ('Введите четырёхзначное число: '); readln(s); if (s[1]='0') or (s[2]='0') or (s[3]='0') or (s[4]='0') then writeln(s[4],s[3],s[2],s[1]) else writeln(s,'0'); readln; end.
9. var k,b:real; begin writeln ('Введите k и b'); read (k,b); if (k=1) and (b>0) then writeln ('y=x+',b) else if (k=1) and (b<0) then writeln ('y=x',b) else if (k=1) and (b=0) then writeln ('y=x')
else if (k=-1) and (b>0) then writeln ('y=-x+',b) else if (k=-1) and (b<0) then writeln ('y=-x',b) else if (k=-1) and (b=0) then writeln ('y=-x')
else if (k<>0) and (b>0) then writeln ('y=',k,'x+',b) else if (k<>0) and (b<0) then writeln ('y=',k,'x',b) else if (k<>0) and (b=0) then writeln ('y=',k,'x')
else if (k=0) and (b<>0) then writeln ('y=',b) else if (k=0) and (b=0) then writeln ('y=0') end.
Пример: 1. Введите k и b 5 5 y=5x+5
2. Введите k и b -5 5 y=-5x+5 3. Введите k и b 5 0 <span>y=5x
4. </span>Введите k и b -5 -5 y=-5x-5 5. Введите k и b 1 0 y=x