С1. Составьте программу, которая вводит с клавиатуры три различных целых числа, каждое из которых по абсолютной величине не

+ 0 -

Антин

22 янв. 2017 г., 3:39:38 (7 лет назад)

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

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]<min) then
begin
min:=b[i];
end;
if(b[i]>max) then
begin
max:=b[i];
end;
end;

if(min<0) 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 проверяем точка в окружности или за окружностю, затем проверяем выше она первой прямой или ниже, и также со второй прямой. в зависимости от результатов проверки делаем вывод. Задавайте вопросы