1)Условный оператор: if(x>2)theny:=x+10elsey:=x−23. Выбери действие, которое будет выполняться в случае истинности условия: y:=x+10 x>2 y:=x−23 2)Дана программа на языке Паскаль. Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 62, то «лёгкая категория» иначе «средняя категория». Заполните пустые окошки. program ves; const A1='легкая категория'; A2='средняя категория'; var s : integer; begin write('введите вес спортсмена = '); readln( ); if < then writeln(A1) else writeln(A2); readln; end. 3)Дано целое число. Если оно является положительным, то прибавить к нему 20; в противном случае не изменять его. Вывести полученное число. program cislo; var a: integer; begin writeln('Введи число a'); readln(a); if a > 0 then a:=a; writeln(a); readln; end. program cislo; var a: integer; begin writeln('Введи число a'); readln(a); if a < 0 then a:=a+20; writeln(a); readln; end. program cislo; var a: integer; begin writeln('Введи число a'); readln(a); if a > 0 then a:=a+20; writeln(a); readln; end. 4)Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 7; если нулевым, то заменить его на 17. Вывести полученное число. program zadaca; var a: integer; begin writeln('Введи число a'); readln(a); if a > =0 then if a=0 then a:=17 else a:=a+1 else a:=a-7; writeln(a); readln; end. program zadaca; var begin writeln('Введи число a'); readln(a); if a > =0 then if a=0 then a:=17 else a:=a+1 else a:=a-7; writeln(a); readln; end. program zadaca; var a: integer; begin writeln('Введи число a'); readln(a); if a > =0 then if a=0 then a:=17 else a:=a+1 else a:=a-7; end. 5)Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0, еслиx≤0x, если01. (y:3:0) Запусти программу и введи значение x=11. Число выведенное на экран: 6) Определить, принадлежит ли точка y отрезку [k;m]. var k, m, y:real; begin write(' ='); readln( ); write('m='); readln(m); write('y='); readln( ); if (y>=k) and (y<= ) then writeln ('yes') else writeln('no'); readln; end. 7)Выведи на экран большее из двух данных чисел. Запиши программу на языке Паскаль, выведи ответ на экран, если 1, 42306 и 2, 5931. 1.bmp 2.bmp 3.bmp На экране vvedi dva chisla 1, 42306 2, 5931 8)Дано целое число. Если оно является положительным, то прибавить к нему 59; в противном случае не изменять его. Вывести полученное число. program cislo; var a: integer; begin writeln('Введи число a'); readln(a); if a < 0 then a:=a+59; writeln(a); readln; end. program cislo; var a: integer; begin writeln('Введи число a'); readln(a); if a > 0 then a:=a; writeln(a); readln; end. program cislo; var a: integer; begin writeln('Введи число a'); readln(a); if a > 0 then a:=a+59; writeln(a); readln; end. 9)Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0, еслиx≤0x, если01. (y:3:0) Запусти программу и введи значение