Program a;var d:integer;x,y:real;beginreadln(x,y);write('действие: ');readln(d);case(d) of1: x:=x+y;2: x:=x-y;3: x:=x*y;4: x:=x/y;end;write(x);end.
program a;var d:integer;m:real;beginreadln(m);write('единицы: ');readln(d);case(d) of1: write(m,'кг');2:begin m:=m/1000000; write(m,'кг');end;3:begin m:=m/1000; write(m,'кг');end;4:begin m:=m*1000; write(m,'кг');end;5:begin m:=m*100; write(m,'кг');end;end;end.
Print(sorted("Sam is a multi-file text editor based on structural regular expressions It was originally designed in the early 1980s at Bell Labs by Rob Pike with the help of Ken Thompson and other Unix developers for the Blit windowing terminal running on Unix it was later ported to other systems Sam follows a classical modular Unix aesthetic It is internally simple its power leveraged by the composability of a small command language and extensibility through shell integration".split())[39])
Аудиокарта или звуковая плата.
1 int = 4 bytes
178 * 4 = 712 байт.
178 - 70 = 108.
108 * 4 = 432
А вообще для этого в C/C++ есть функция sizeof :)
Const N = 99;
var i, j, t: integer;
flag: boolean;
mas: array[1..N]of integer;
begin
randomize;
i := 0;
while i < N do
begin
t := Random(1, 99);
flag := true;
for j := 1 to i do
if t = mas[j] then
begin
flag := false;
Break
end;
if flag then begin
i := i + 1;
mas[i] := t
end
end;
for i := 1 to N do
write(mas[i], ' ')
end.
