Microsoft Windows: XP, Vista, 2003 Server;
ОС на базе UNIX: IBM AIX, Hewlett Packard HPUX и Sun Solaris;
BSD - Free BSD;
ОС на базе Linux (много разновидностей);
ОС Macintosh X;
Частные системы, являющиеся собственностью частной компании, кроме Unix: IBMOS/400, z/OS.
Когда одно из высказываний является истинным или оба высказывания истинны
Var
k, x, z: real;
begin
readln(x);
readln(z);
if x > z then
k := sqrt(2 * (x - z) / z);
if x <= z then
k := x + z;
println(k);
end.
Program vs4;Var n,b,a,c:integer;Begin Writeln('Введите трехзначное число'); Readln(n); a:=n div 100; b:=(n div 10) mod 10; c:=(n mod 100) mod 10; n:=a+b+c; Writeln('Сумма цифр данного числа=',n);End.