Question

Ребят, кто шарит в паскале и все в этом подобном, помогите пожалуйста, срочно надо

93d7f7b876bb572b355f8ca57646b3f9.pdf

Answer 1

Приложение №1.
Program one;
var  x,y:integer;
begin
writeln('Введите x');
readln(x);
if (x>10) or (x<-10) then
y:=x+5;
writeln('Ответ: ',y);
end.
(Вывод на рисунке 1)

Приложение №2
Program two;
var  a,b:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b); 
if a > b    then
begin     
a := a/2;     
b := b * b   
end   
else if b > a      then
begin
b := b/2;
a := a * a     
end;     
if a=b then        
writeln('a = b');
writeln('Ответ: ');
writeln('a = ',a);
writeln('b = ',b);
end.
(Вывод на рисунке 2)

Answer 2

вот в таком роде

Answer 3

Ход работы

Answer 4

я там загрузил pdf файл, можете посмотреть

Answer 5

Приложение №1
begin
if <условие 1> or <условие 2> then <оператор 1>
end.

Answer 6

Приложение №2
if <условие 1> then
begin
<оператор 1>
<оператор 2>
end
else
if <условие 2> then
begin
<оператор 3>
<оператор 4>
end;
if <условие 3> then
<оператор 5>