Question

1)Y={0,если х≤0
      х,если 0<x≤1
      -x, в остальных случаях

Составить блок схему! Срочно! на завтра!!!!

2) Составьте блок-схему и программу, которая вычисляет суммы всех чисел от 1 до 10

3) Найти максимальное число из двух чисел Х и У. Составить блок-схему и программу.

Answer 1

2)var s,i: integer;
begin
s:=0;
for i:=1 to 10 do
s:=s+i;   
writeln('Сумма в строке = ',s);
end.
3)var x,y: integer;
  begin  write('Введите x: ');
  readln(x);
  write('Введите y: ');
  readln(y);
  if x>y then  writeln('x>y')
  else if x<y then  writeln('x<y')
  else writeln('x=y');
end.