Напишіть програму, яка отримує такі дані: ім’я, рік народження, вік(н-д, 13.6), хобі, введені з клавіатури (вводяться на окремих рядках), і друкує на екрані одним повідомленням повну інформацію на основі введених даних.
. Проблемы гуманитарного характера – проблемы информационной безопасности, возникающие в связи с бесконтрольным использованием и распространением персональных данных граждан, вторжениями в частную жизнь, клеветой и кражами личности.
2. Проблемы экономического и юридического характера – проблемы информационной безопасности, возникающие в результате утечки, искажения и потери коммерческой и финансовой информации, краж брендов и интеллектуальной собственности, раскрытия информации о материальном положении граждан, промышленного шпионажа и распространения материалов, наносящих ущерб репутации компаний.
program Number3;
var
A: array [1..3] of Integer; // массив для трех чисел
i, c, s: Integer;
begin
WriteLn ('Введите три числа: ');
Read (A [1], A [2], A [3]); // Ввод трех чисел с клавиатуры
c := 0;
for i := Low (A) to High (A) do begin // подсчет количества положительных чисел
if A [i] > 0 then
c := c + 1;
end;
if c >= 2 then begin // если положительных хотя бы 2, то
WriteLn ('Новые значения чисел: ');
for i := Low (A) to High (A) do begin
if (A [i] mod 2) > 0 then // увеличиваем нечетные на 1
A [i] := A [i] + 1;
Write (A [i], ' '); // выводим их на дисплей
end;
end else begin
s := 0;
for i := Low (A) to High (A) do // находим сумму
s := s + A [i];
WriteLn ('Сумма всех чисел = ', s); // выводим сумму на дисплей
end;
ReadLn;
ReadLn;
end.
Объяснение: комментарии к программе
2. Проблемы экономического и юридического характера – проблемы информационной безопасности, возникающие в результате утечки, искажения и потери коммерческой и финансовой информации, краж брендов и интеллектуальной собственности, раскрытия информации о материальном положении граждан, промышленного шпионажа и распространения материалов, наносящих ущерб репутации компаний.