Ответ:
Объяснение:
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.
Раскрась и заполни таблицу преобразуй данные из одного вида в другой (графические в текстовые).
Так как (i:=1) и (пока i<5) и (в цикле i увеличивается с шагом +1), то цикл осуществляется 4 раза (для i=1, 2, 3 и 4)
первоначальное s=1
начинаем цикл:
i=1......................s:=1+1*(1+1)......................s=3
i=2......................s:=3+2*(2+1)......................s=9
i=3......................s:=9+3*(3+1)......................s=21
i=4......................s:=21+4*(4+1)....................s=41
конец цикла
Итого s=41
В онлайне сделать попробуй
Программа запросит ввод значений Х1 и Х2 (третья строка). После того, как пользователь введёт эти значения, на экран будет выведена их сумма.
Например, если пользователь введёт числа 12 и 15, то на экран будет выведено: "27"