С1. Составьте программу, которая вводит с клавиатуры три различных целых числа, каждое из которых по абсолютной величине не превосходит 100 (каждое число – с новой строки), и выводит на экран число, равное произведению максимального и минимального из них, если минимальное число отрицательно; или сумме максимального и минимального из них, если минимальное число неотрицательно.
Ничего, кроме указанного числа, программа выводить не должна.
 
С2. Составьте программу, которая вводит с клавиатуры натуральное число N, не превосходящее 12, а затем N целых неотрицательных чисел ( каждое чисол - с новой строки), записывает эти N чисел в массив, выводит на экран сначала в обратном порядке все, без исключения, элементы массива, затем, в прямом порядке относительно следования в массиве, все элементы, остаток которых от деления на 8 равен 3.Каждое число программа должна выводить в отдельной строке; ничего, кроме чисел, программа выводить не должна.С3. См. фото.




Есть ответ
18.12.2022
160

Ответ


По первой задаче, предполагается, что пользователь корректно всё ввёл:

program c1;uses crt;var b:array[1..3] of shortint; min:integer; max:integer; i:integer;begin for i:=1 to 3 do begin

readln(b[i]); if(i=1) then begin min:=b[i]; max:=b[i]; end; if(b[i]max) then begin max:=b[i]; end; end;

if(min4 then begin writeln('E'); {snaruzhi okruzhnosti} end else begin if(y>3*x) then {C ili B} begin if(y>-3*x) then writeln('B') else writeln('C'); end else {A ili D} begin if(y>-3*x) then writeln('A') else writeln('D'); end; end;

end.

в третьей задаче 1 проверяем точка в окружности или за окружностю, затем проверяем выше она первой прямой или ниже, и также со второй прямой. в зависимости от результатов проверки делаем вывод. Задавайте вопросы

 


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
18.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.