===== PascalABC.NET =====
begin
Writeln('Плотность равна ',
ReadReal('Задайте массу, кг:') /
ReadReal('Задайте объем, м^3:'):0:1, ' кг/м^3')
end.
Значения плотностей составят:
а) 8900 кг/м³
б) 7100 кг/м³
Таблица имеет вид, представленный на картинке.
В таблице размещаются свойства (оценки) пар объектов (предмет и период оценивания), при этом периоды оценивания разделены на несколько классов. Поэтому тип таблицы –<span> «объекты - объекты - несколько»</span>
Ну, они тесно связаны, однако отличия есть. Компьютерная безопасность подразумевает защиту данных и информации отдельно взятого персонального компьютера, а кибербезопасность по сути тоже самое, только в этом случае, компьютер будет являться частью другой инфо-системы и в результате потери данных, другие киберобъекты также могут подвергнуться атаке и рискуют быть под угрозой.
Кибербезопасность более глобальный термин.
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function ДробьНесократима(Чис,Знам:integer):boolean;
begin
while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
Result:=Чис=1
end;
begin
for var Знаменатель:=2 to 7 do
for var Числитель:=1 to Знаменатель-1 do
if ДробьНесократима(Числитель,Знаменатель) then
Write(Числитель,'/',Знаменатель,' ');
Writeln
end.
<u>Результат</u>
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7