Предмет: Информатика,
автор: skobanevana12
помогите составить программы на паскале
очень срочнооо!!помогите! буду рада!!
Приложения:

Ответы
Автор ответа:
1
program n1;
var x,y,z:integer;
begin
writeln('введите два числа x, y : ');
readln(x,y);
if x<=y then z:=x+y
else z:=1-x+y;
writeln('число z = ',z);
end.
program n2;
var a,b:integer;
begin
writeln('введите два числа a, b : ');
readln(a,b);
if (a>=2) and (a<=7) then writeln(a,' принадлежит промежутку [2;7]');
if (b>=2) and (b<=7) then writeln(b,' принадлежит промежутку [2;7]');
end.
var x,y,z:integer;
begin
writeln('введите два числа x, y : ');
readln(x,y);
if x<=y then z:=x+y
else z:=1-x+y;
writeln('число z = ',z);
end.
program n2;
var a,b:integer;
begin
writeln('введите два числа a, b : ');
readln(a,b);
if (a>=2) and (a<=7) then writeln(a,' принадлежит промежутку [2;7]');
if (b>=2) and (b<=7) then writeln(b,' принадлежит промежутку [2;7]');
end.
Похожие вопросы
Предмет: Биология,
автор: shukrillo257
Предмет: Английский язык,
автор: xdestreqtion
Предмет: География,
автор: elizavetacerkas57
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: elizavetapanda007