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

С3.См. фото.

Ответы (1)

Узра 16.11.2024 3

По первой задаче, предполагается, что пользователь корректно всё ввёл:
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] begin
min:=b[i];
end;
if(b[i]>max) then
begin
max:=b[i];
end;
end;
if(min0) then
begin
writeln(min*max);
end else
begin
writeln(min+max);
end;
end.
------------------------------------------------------------------------------------------------
Задача номер 2
program c2;
uses crt;
var b:array[1..12] of word;
i:integer;
N:byte;
begin
readln(N);
for i:=1 to N do
begin
readln(b[i]);
end;
for i:=N downto 1 do
begin
writeln(b[i]);
end;
for i:=1 to N do
begin
if b[i] mod 8 = 3 then writeln(b[i]);
end;
end.
----------------------------------------------------------------------------------
Задача номер 3
program c3;
uses crt;
var x,y:real;
begin
readln(x);
readln(y);
{check e or not e}
if(x*x + y*y)>4 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 проверяем точка в окружности или за окружностю, затем проверяем выше она первой прямой или ниже, и также со второй прямой. в зависимости от результатов проверки делаем вывод. Задавайте вопросы

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ