2.
var x,y:real;
Begin
write('Vvedite chislo x: ');
readln(x);
writeln('y1= ',power(x,8));
writeln('y2= ',power(x,10));
writeln('y3= ',power(x,15));
writeln('y4= ',power(x,19));
readln;
End.
3.
var
a1,a2,b1,b2:integer; // a1,a2 - первая дробь, b1,b2 - вторая
Begin
write('Vvedite pervuy drob: ');
readln(a1,a2);
write('Vvedite vtoryy drob: ');
readln(b1,b2);
writeln('Chislitel= ',a1+b1);
writeln('Znamenatel= ',a2+b2);
readln;
End.
См. фото ..........................................
Персональный компьютер, ПК, ПЭВМ (персональная электронно-вычислительная машина) — настольная микро-ЭВМ, имеющая эксплуатационные характеристики бытового прибора и универсальные функциональные возможности
Программное обеспечение – это набор команд, управляющих работой компьютера. Безпрограммного обеспечениякомпьютер не сможет выполнять задачи, которые мы обычно связываем с компьютерами.
Аппаратное обеспечение — комплекс электронных, электрических и механических устройств, входящих в состав системы или сети. Аппаратное обеспечение включает: компьютеры и логические устройства; внешние устройства и диагностическую аппаратуру; энергетическое оборудование
Ответ:
Объяснение:
1) Без составных условий.
program abc;
var x,y,v:real;
begin
readln(x,y);
if (x>1) then
begin
if (y>1) then
v:=x+y
else
v:=x-y;
end
else begin
if (y>1) then
v:=-x+y
else
v:=-x-y;
end;
writeln(v);
end.
2) С составным.
program abc;
var x,y,v:real;
begin
readln(x,y);
if (x>1) and (y>1) then
v:=x+y;
if (x>1) and (y<=1) then
v:=x-y;
if (x<=1) and (y<=1) then
v:=-x-y;
if (x<=1) and (y>1) then
v:=-x+y;
writeln(v);
end.