Разработка алгоритмов с ветвлением в среде программирования Турбо Паскаль

типу
Integer
Real
2. Исправь

ошибки в программе
Program 2 pr;
Var b,s: real;
Begin
Writeln (‘Введите числа b и с’)
Readln( b,c);
A=b+c;
Write ln ( ‘a=’,a);
End.
3. Запиши на языке программирования математическое выражение
х2+2ху-у2
4. Переведите запись с языка программирования Паскаль на математический язык
Sqrt(x)*3 – (a+2)/b

Writeln (‘Введите числа a, b

и с’)
Readln( a,b,c);
D:=sqr(b)-4*a*c;
x:=(-b+sqrt(d))-2*a;
y:=(-b-sqrt(d))-2*a;
Write ln ( ‘x=’,x, ‘у=’,y);
End.

условий
Z:= X
Z:= Y
X>Y

else <оператор 2>;
Program My2;
Var x,y: integer;
Begin
Writeln (‘Введите два числа’)
Readln( х, у);
If x>y Then Writeln(x)
else Writeln(y);
End.

then ;

Пусть даны два

числа. Если первое больше второго по абсолютной величине, то необходимо уменьшить первое в пять раз. Иначе число оставить без изменения.

Program My3;
var x, y: real;
Begin
writeln (‘Введите числа х и у’);
readln (x,y);
If abs(x) >abs(y) Then x:=x/5;
Write(‘x=‘, x, ‘y=‘, y);
end.

формуле: a+b, если а –нечетное и a*b, если а –

четное.

If a div 2=0 then Write (‘Число чётное’) else write (‘Число нечетное’);

else y:=x- 8;

файл my5_1;
- поставь «:» после оператора Writeln(x).
Почему появилось сообщение

об ошибке.
- введи два равных числа. Измени программу так, чтобы она выводила на экран сообщение «Числа равны»

Begin
Writeln (‘Введите

числа a, b и с’)
Readln( a,b,c);
D:=sqr(b)-4*a*c;
If d>= 0 then
begin
x:=(-b+sqrt(d))-2*a;
y:=(-b-sqrt(d))-2*a; Write ln ( ‘x=’,x, ‘у=’,y);
end; Else write (‘Корней нет’);
End.

чисел.
Дано трехзначное число. Напишите программу определения, является ли оно

полидромом («перевертышем»)