Предмет: Информатика, автор: Алиса20040904

Написать программу для pascal. Решить 8 и 9 используя условный оператор

Приложения:

Ответы

Автор ответа: elenaklon
1
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.

Пример:
1.
Введите четырёхзначное число: 1203
3021

2.

Введите четырёхзначное число: 1234
12340

3
.
Введите четырёхзначное число: 1230
321

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.

Пример:
1.
Введите четырёхзначное число: 1203
3021

2.

Введите четырёхзначное число: 1234
12340

3
.
Введите четырёхзначное число: 1230
0321

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
y=5x

4.

Введите k и b
-5 -5
y=-5x-5

5.
Введите k и b
1 0
y=x

6.
Введите k и b
-1 0
y=-x
Похожие вопросы
Предмет: Алгебра, автор: meowww2