Microsoft word который вместе с офисом
Uses crt;
var i,n,p,k:integer;
begin
clrscr;
readln(n);
for i:=2 to n div 2 do
if (n mod i = 0) then inc(k);
if k =0 then writeln('simple')
else writeln('not simple');
readln
end.
2 В связи с этим первое, на что стоит обратить свое внимание это надежность. Любая система для хранения данных должна предусматривать частичное либо полное резервирование таких компонентов ка блоки питания, процессорных модулей, путей доступа, дисков и т.д. обязательным требованием считается также наличие мониторинга и множество способов для оповещения о различных проблемах.
Второе требование, которое должно учитываться при работе системы хранения данных это доступность всех данных. Именно она обеспечивается заранее разработанными функциями для того чтобы сохранить целостность данных.
3
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (b, c) := ReadReal2;
if c <> 0 then Write('a=', b / c)
else Print('с=0')
end.
Налить в 3л и из 3л перелить в 5л
Опять налить в 3л и перелить в 5л. (в 3л останется 1л)
Вылить из 8л
Перелить из 3л в 8л
Перелить из 5л в 3л
Перелить из 3л в 8л