Var a, b, x: integer;
Begin
write('Введите число a: ');
readln(a);
write('Введите число x: ');
readln(x);
write('Введите число b: ');
readln(b);
if (a×x+b<=0) then
writeln ('Сумма чиселел меньше или равна нулю')
else writeln('Сумма числел больше нуля');
End.
Задача 1:
Program Test1;
Var min, i: integer; num: array[1..5] of integer;
Begin
Writeln('Введите 5 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5]);
min := 0;
for i := 1 to 5 do
begin
if (num[i] < min) then
min := num[i];
end;
if (min < 0) then
begin
Writeln();
Writeln('Min = ', min);
end
else
begin
Writeln();
Writeln('Вы не ввели отрицательных чисел!');
end;
End.
---------------------------------
Задача 2:
Program Test2;
Var max, i: integer; num: array[1..10] of integer;
Begin
Writeln('Введите 10 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5], num[6], num[7], num[8], num[9], num[10]);
max := 0;
for i := 1 to 10 do
begin
if (num[i] > max) then
begin
if (num[i] mod 2 = 0) then
max := num[i];
end;
end;
if (max > 0) then
begin
Writeln();
Writeln('Max = ', max);
end
else
begin
Writeln();
Writeln('Вы не ввели четных положительных чисел!');
end;
End.
Каждый компьютер имеет Интернет-адрес. Но у него нет доменного имени. Оно есть только у компьютеров , состоящих в доменной сети.
<span>Предположим, что это возможно. Рассмотрим тогда граф, вершины которого соответствуют телефонам, а ребра – соединяющим их проводам. В этом графе 15 вершин: степень 4 из них равна 3, </span>степень 8 из них равна 6 и степень 3 из них равна 5.
Зная теорему: <span>Число нечетных вершин любого графа четно.
Понимаем, что граф с 7 вершинами с нечетными степенями существовать не может.
Ответ: Нельзя
</span>
