10. составить программу, осуществляющую ввод числовых переменных. при вводе положительного числа вывести информацию: «число больше ноля», при вводе отрицательного числа – «число меньше ноля», при вводе ноля – «вы ввели ноль».

👇

Ответ:

aldiyar20020922

02.06.2021

Program n1;
var a: real;
begin
readln(a);
if a>0 then write('число больше ноля') else if a<0 then write('число меньше ноля') else write('вы ввели ноль');
end.

4,6(43 оценок)

Открыть все ответы

Ответ:

ПочтиОтличникМакс

02.06.2021

Morris

В 1988 году вирус заразил по сети 60 тыс. компьютеров, не давая им нормально работать. Ущерб от червя Морриса был оценён примерно в $96.5 млн.

Создатель вируса Роберт Моррис хорошо законспирировал код программы, и вряд ли кто мог доказать его причастность. Однако его отец, компьютерный эксперт Агентства национальной безопасности, посчитал, что сыну лучше во всем сознаться.

На суде Роберту Моррису грозило до пяти лет лишения свободы и штраф в размере $250 тыс, однако, принимая во внимание смягчающие обстоятельства, суд приговорил его к трем годам условно, $10 тыс штрафа и 400 часам общественных работ.

4,5(60 оценок)

Ответ:

Yanawer

02.06.2021

В начале мы создаем массив случайных элем.
Потом работаем с ним.
Нам нужны 2 переменные:
1 - переменная, для сохранения результата (номера).
2 - переменная флажок.
Мы обходим весь массив ПО СТОЛБЦАМ.
В начале обхода конкретного столбца переменной флажка присвоим 1.
Сравниваем текущий элемент столбца с последующим,
если они не равны то ставим флажок 0

Код:
//Размерность массива
const n = 3;
//Сам массив
var
ar : array[1..n,1..n] of integer;
//Переменные для работы с массивом
var
i,j : integer;
//Переменные для поиска столбца
//f - переменная флажок, которая по окончанию обхода столбца будет
//показывать одинаковы ли элементы в нем
//numb - переменная, в которой сохраним номер столбца с
//одинаковыми значениями элементов.
var
f,numb : integer;
begin
//Создание и вывод на экран массива
//Элементы генерируются случайным образом
//
for i:=1 to n do
begin
for j:=1 to n do
begin
ar[i,j] := random(2);
write(ar[i,j]:3);
end;
writeln;
end;
//

//Вот сам алгоритм поиска
//
//Записываем в numb значение -1
//Если в процессе работы значение не изменится (-1)
//То означает, что в массиве нет одинаковых столбцов
numb := -1;

//Идем по массиву
//
for j:=1 to n do
//Момент начала конкретного j столбца
  begin
//записываем в f значение 1
//Предполагаем, что столбец одинаков
//Если в конце обхода конкретного столбца значение f=1
//Значит, что данный столбец одинаков
  f := 1;

//Идем по столбцу
// n-1
//(т.к сравниваем текущий со следующим)
for i:=1 to n-1 do
begin
//Сравниваем текущий элемент столбца, со следующим
if (ar[i,j] <> ar[i+1,j]) then
//Если они не равны, то изменяем значение флажка f на 0
  f := 0;
end;
//Конец обхода конкретного столбца

//Если столбец одинаков
if (f = 1) then
//то записываем его номер в numb
  numb := j;
end;
//

//Вывод результата
if (numb <> -1) then
writeln('Столбец №: ',numb)
else
writeln('Нет ни одного одинакового столбца');
end.

4,8(86 оценок)

Это интересно:

Стиль-и-уход-за-собой

21.02.2023

Как заплести косу в стиле «Хвост русалки»...

Компьютеры-и-электроника

15.07.2020

Как правильно очистить экран iPhone и iPod Touch...

Дом-и-сад

17.04.2021

Волшебное искусство выращивания астр: секреты заботы, чтоб цветы радовали глаз долго...

Питомцы-и-животные